Copy data till the last row dynamically

[Harshil Mehta]

I am trying to copy data dynamically from Cell C1:G till the last row in any of the column in the Range.

Attached is the snapshot in which the highlighted area is something I want to copy.

Could any one please help me out?

Sub TEST1_1()

Dim lrc As Long

lrc = Cells.Find(What:="*", _
After:=ThisWorkbook.Worksheets("Dashboard").Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row


Range("C1:G" & lrc).Copy


End Sub

 

[Fluff]

Change Cells.Find to Range("C:G").Find

 

[Harshil Mehta]

Change Cells.Find to Range("C:G").Find

It gives a TYPE MISMATCH error. Could you please check at you end?

 

[Fluff]

What is your entire code now?

 

[Harshil Mehta]

What is your entire code now?

Sub TEST1_1()

Dim lrc As Long

lrc = ThisWorkbook.Worksheets("Dashboard").Range("C:G").Find(What:="*", _
After:=ThisWorkbook.Worksheets("Dashboard").Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row


Range("C1:G" & lrc).Copy


End Sub

 

[Fluff]

You need to change the After to C1, or just get rid of it.

 

[Harshil Mehta]

You need to change the After to C1, or just get rid of it.

Thank you so much for your help.

 

[Fluff]

You're welcome & thanks for the feedback.