Excel makro problem

ne moreš verjet kako enostano je lahko :

Sub lop()
'
' Makro1 Makro
' Makro ustvaril: Bibi, dne 10.12.2005
'
Do Until Application.ActiveCell = "teta"
ActiveCell.Offset(1, 0).Select

Loop

ActiveCell.Select
MsgBox "micka doma sem"

End Sub

Edit: Lahko kateri mogoče pomaga, da ne bom cele vsebine celic kopiral z formatiranjem in ozadjem vred? Hvala!!

Ja :D

Sem skapiral... :)
Evo to je za kopiranje datumov v različne stolpce + malo formatiranja (je trajalo kar nekaj da sem pogrtunal):

ActiveCell.Select 'zacetek mora bit na datumski vrednosti
ActiveCell.Copy
ActiveCell.Offset(0, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "dd/mm/yyyy"

To pa je koda za iskanje različnih stvari in pastanje v različna polja

Sheets("data feed").Select
Range("A1").Select

' euro noncomm long
Do Until Application.ActiveCell = "EURO FX - CHICAGO MERCANTILE EXCHANGE " ' string za iskanje


ActiveCell.Offset(1, 0).Select ' pomik po vrstici dol

Loop
ActiveCell.Select
ActiveCell.Offset(0, 8).Select 'zajemanje podatkov

Selection.Copy
Sheets("data").Select
Range("B70").Select
Do While ActiveCell "" 'Loops until the active cell is blank.
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00"
Selection.NumberFormat = "#,##0"
With Selection
.HorizontalAlignment = xlRight
End With

Čisto vse ročno ... (orodja zaženi makro in počakaš malo :) )