Use variables inside Range Object

[ORoxo]

Guys, I'm trying to select all the cells on my worksheet. In order to do so, I was thinking about trying to use range and the variables lr and lc which stand for last row and last column. However, currently it's not working.

This is the code I have:

Sub Graphs()
Dim lr As Integer, lc As Integer, r As Integer


Application.ScreenUpdating = False


lr = data.Cells(Rows.Count, 1).End(xlUp).Row
lc = data.Cells(1, Columns.Count).End(xlToRight).Column
lc2 = Columns(lc)


For r = 1 To lr


    data.Rows(r).Copy
    data_pivot.Select
    data_pivot.Cells(r, 1).Select
    data_pivot.Paste
    
Next


Application.ScreenUpdating = True


MsgBox "Copy done"


data_pivot.Range(Cells(1, 1), Cells(lr, lc)).Select


Range("A1:H540").Select


End Sub

Any hint?
Thanks!

 

[RoryA]

What do you mean by "not working" exactly?

I will say that you should qualify the Cell calls with the worksheet too:

data_pivot.Range(data_pivot.Cells(1, 1), data_pivot.Cells(lr, lc)).Select

 

[ORoxo]

What do you mean by "not working" exactly?

I will say that you should qualify the Cell calls with the worksheet too:

data_pivot.Range(data_pivot.Cells(1, 1), data_pivot.Cells(lr, lc)).Select

I get Error 1004: Application-defined or object-defined error on the second part of the Cells Object

data_pivot.Cells(lr, lc)

EDIT 1: Nevermind, I think I understood why. Will be back in 5
EDIT 2: Yup, got it, thanks!