Selecting cell using range.offset

[presence76]

I am trying to take 4 columns from one spreadsheet and paste it to th
bottom of another. I am doing each one seperately. The first on
worked fine. The second one did not because I need to save th
location of the bottom of the sheet and then reference that with a
offset of 1,1 to move it to the next row, next column. When I do tha
I get run-time error '1004' - method 'range' of object '_global
failed.

Here is my code:

Dim bottomofsheet As Long

Sheets("tracerfinal").Select
Range("E1:E" & Range("A65536").End(xlUp).Row).Copy
Sheets("Final balancing").Select
bottomofsheet = Sheets("Fina
balancing").Range("A65536").End(xlUp).Row
[A65536].End(xlUp).Offset(1).Select
ActiveSheet.Paste


Sheets("tracerfinal").Select
Range("D1" & Range("A65536").End(xlUp).Row).Copy
Sheets("Final balancing").Select
Range(bottomofsheet, 1).Offset(1, 1).Select
ActiveSheet.Paste

The error happens on the
Range(bottomofsheet, 1).Offset(1, 1).Select line.

I have tried several variations including changing the dim from Long t
object to range and then modifying accordingly.

Any help would be greatly appreciated. Thanks

 

[Tom Ogilvy]

Looks like you want to put the copies columns side by side, but in a
different order.

With Worksheets("TracerFinal")
set rngE = .Range(.Range("E1"),.Cells(rows.count,5).End(xlup))
set rngD = .Range(.Range("D1"),.Cells(rows.count,4).End(xlup))
End With
With Worksheets("Final balancing")
set rng1 = .Cells(rows.count,1).End(xlup)(2)
End With
rngE.copy Destination:=rng1
rngD.copy Destination:=rng1.offset(0,1)

if rngD will be the same number of rows as rngE then

With Worksheets("TracerFinal")
set rngE = .Range(.Range("E1"),.Cells(rows.count,5).End(xlup))
End With
With Worksheets("Final balancing")
set rng1 = .Cells(rows.count,1).End(xlup)(2)
End With
rngE.copy Destination:=rng1
rngE.Offset(0,-1).copy Destination:=rng1.offset(0,1)

 

[presence76]

Thanks alot. It worked great