Carlos, méág tudnál ebben segíteni?
Átírtam ahogy nálam kell, de végtelen ciklusba keveredik. Elvileg akkor kéne megállnia, amikor már nem talál értéket a "C" oszlopban
Gondolom, hogy a While Trim$(ActiveCell.Value) <> "" sorral van a gond, de mi?


Sub BeIr()

Dim i As Long

i = 3
Cells(i, 3).Select
While Trim$(ActiveCell.Value) <> ""

Cells(i, 3).Copy
Range("M2").PasteSpecial
Range("F2").Copy
Cells(i, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
Wend

End Sub