Graham

Sub Auto_Fill()
Dim lrow As Long
With ActiveSheet
lrow = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B" & lrow).FillDown
End With
End Sub

Gord Dibben Excel MVP

On Sun, 6 Jun 2004 17:03:21 +0100, wrote:

Hi All

In Excel 2002
Column A cells 1 to 20 has data in them, Column B1 has data in it,
I would like to have a macro that would copy the data from B1 to all the
cells to the right of the A Column cells even if there were 3 cells in
Column A or 50

Thanks In Advance

Graham