Hi,

Am Thu, 18 Oct 2012 14:15:10 +0000 schrieb KeriM:

NumberofRows = Cells(Rows.Count, "B").End(xlUp).Row 'Choose column letter that has last row of data
Range("A2").Select
ActiveCell.Autofill Range(ActiveCell, Cells(NumberofRows, _
ActiveCell.Column - 1).Offset(, 1))

try:
NumberOfRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("A2").AutoFill Range(Cells(2, 1), Cells(NumberOfRows, 1))


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2