Excel 2010 Copy last cells in each range and paste into another worksheet

[lmusn89]

Good afternoon,
Instead of using the “generic” 198 in the ranges below, is there code to specifically select the last cell, or cells, in the ranges and set those values to the various ranges below on the separate worksheet?? Any support is greatly appreciated!

propWb.Sheets("Slate Prop").Range("A2:C198").Value = currentWb.Sheets("Slateables").Range("A4:C198").Value
propWb.Sheets("Slate Prop").Range("D2:E198").Value = currentWb.Sheets("Slateables").Range("E4:F198").Value
propWb.Sheets("Slate Prop").Range("F2:F198").Value = currentWb.Sheets("Slateables").Range("R4:R198").Value
propWb.Sheets("Slate Prop").Range("N2:N198").Value = currentWb.Sheets("Slateables").Range("K4:K198").Value
propWb.Sheets("Slate Prop").Range("O2:Q198").Value = currentWb.Sheets("Slateables").Range("G4:I198").Value

 

[Forbidden]

Try:

Cells(Rows.Count, "A").End(xlup).Row

Changing A to whatever column you want the last cell to be.
With your code example I guess it would look like this:

propWb.Sheets("Slate Prop").Range("A2:C198").Value = currentWb.Sheets("Slateables").Cells(Rows.Count, "A").End(xlup).Value

 

[lmusn89]

Try:

Cells(Rows.Count, "A").End(xlup).Row

Changing A to whatever column you want the last cell to be.
With your code example I guess it would look like this:

propWb.Sheets("Slate Prop").Range("A2:C198").Value = currentWb.Sheets("Slateables").Cells(Rows.Count, "A").End(xlup).Value

Awesome! Thanks