Sub VytvorVzorec()
'
' Macro recorded 12.5.2010 by PaloPa
Dim xRng As Range, c As Range

'   Oznaci bunky v A od poslednej
    Application.Goto Reference:="R65536C1"
    Selection.End(xlUp).Select
    Set xRng = Range(Selection, Selection.End(xlUp))

'   Vytvor vzorce pre oznacené
    For Each c In xRng
        If c.Text <> "" Then
            c.Offset(, 1).Formula = "=" & c.Text
        End If
    Next c
End Sub