Trying to make a variable cell reference

[tbeynon1]

Basically i want to find the last row used (With Data In) and then use that number in a cell reference for data i want to copy over from a different work sheet.
here is some of my code, I do realize that putting the x in the reference wont work but it shows what i want to achieve:

'Find the last Row with data in a Column
'In this example we are finding the last row of column A
Dim lastRow As Long
Dim x As Integer
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
lastRow = x




'Moving the CSV file data to the right places on new sheet


'Moving Load no to column B
Sheets("CSV").Range("A1:Ax").Copy
Sheets("Sheet1").Activate
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

 

[mumps]

Try:

Sub tbeynon1()
    Application.ScreenUpdating = False
    Dim bottomA As Long
    bottomA = Sheets("CSV").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("CSV").Range("A1:A" & bottomA).Copy Sheets("Sheet1").Range("B1")
    Application.ScreenUpdating = True
End Sub

This assumes that the last row with data is in the "CSV" sheet.