Importing Data

[NeedsHelp2]

I'm importing data from a CSV file. The columns that it's supposed to pick up are A:CL. However I found a problem in that columns BF:CL are not being imported. I suspect that this is because AZ:BE are empty. Is there away to overcome this?

Cells(1, 1).CurrentRegion.Copy Destination:=SourceBook.Sheets("Data").Range("A1:CL65536").End(xlUp).Offset(0, 0)

 

[BrianB]

Sub test()
    Dim CopyRange As Range
    '------------------------------
    LastRow = ActiveSheet.Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row
    '------------------------------
    LastCol = ActiveSheet.Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByColumns).Column
    '------------------------------
    Set CopyRange = ActiveSheet.Range(Cells(1, 1), Cells(LastRow, LastCol))
    CopyRange.Copy Destination:=SourceBook.Sheets("Data").Range("A1")
End Sub