Excel 2007 : Code Amendment Needed To Overcome Obstacle Of Blank Cells

Hi,

The code below has been working a treat but unfortunately I hadn't envisaged the potential problem of blank cells in the top row causing only part of the data to be copied. How could I amend the code so that it selects the data from cell A2:L2 and then to the bottom of the data range?

Sub Import_Data()
Range("a2", Cells(2, 1).End(xlToRight).End(xlDown)).Copy
Sheets("Data").Cells(Rows.Count, "a").End(xlUp).Offset(1)
End Sub

Thanks,

Snook