If Columns(1).Rows(1).Value = "" Then
first = Columns(1).End(xlDown).Address
Else
first = Columns(1).Rows(1).Address
End If
last = Columns(1).SpecialCells(xlCellTypeLastCell).Address
Range(first & ":" & last).Copy Destination:=Workbooks(1).Sheets(2).Cells(1)
|