Find First and Last Rows to Determine Range

[vvSTRIDEvv]

I am trying to copy/paste some data from one sheet to another.

The ranges are always different, so I'd need VBA to determine the range to copy as well as the paste area.
Here is what I have so far, and it is not working. I don't get any error's, just nothing happens...

Please have a look, and let me know where I've gone wrong...

Dim firstrow As String
Dim lastrow As String
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet

wsh1 = Worksheets("strsiteid")
wsh2 = Worksheets("Dashboard")

    
firstrow = wsh1.UsedRange.Rows(1).Row
lastrow = wsh1.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

Range(firstrow, lastrow).Copy _
Destination:=wsh2.Range("C" & wsh2.Rows.Count).End(xlUp).Offset(1, 0)

Thanks

 

[Datsmart]

You need an ADDRESS rather than just the first and last row numbers.

Sub GetRange()
Dim firstrow As String
Dim lastrow As String
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet

Set wsh1 = Worksheets("strsiteid")
Set wsh2 = Worksheets("Dashboard")

'Get Address of Used Range
    URAddy = wsh1.UsedRange.Address
'Copy to other WorkSheet
    wsh1.Range(URAddy).Copy _
    Destination:=wsh2.Range("C" & wsh2.Rows.Count).End(xlUp).Offset(1, 0)
'Clear Memory
    Set wsh1 = Nothing
    Set wsh2 = Nothing
End Sub

 

[vvSTRIDEvv]

Thanks you so much!!

How would I alter the code to "Paste Special" xlPasteValues?

 

[Datsmart]

Change the Copy section like this:

Sub GetRange2()
Dim firstrow As String
Dim lastrow As String
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet

Set wsh1 = Worksheets("strsiteid")
Set wsh2 = Worksheets("Dashboard")

'Get Address of Used Range
    URAddy = wsh1.UsedRange.Address
'Copy to other WorkSheet
    wsh1.Range(URAddy).Copy
    wsh2.Range("C" & wsh2.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
'Clear Memory
    Set wsh1 = Nothing
    Set wsh2 = Nothing
End Sub