[kapetang]

Καλημέρα

Βασίλη δοκίμασε τον παρακάτω κώδικα:

Sub Macro2()
    Dim rng As Range
    Set rng = Range("B2:B" & Cells(Cells.Rows.Count, 1).End(xlUp).Row)
    Range("b2").AutoFill Destination:=rng
    rng.Select 'Μπορεί να διαγραφεί αν δε χρειάζεται η επιλογή
End Sub

Φιλικά/Γιώργος