Copy paste last row help

[thedeadzeds]

Hi Guys,

What am I missing below? I just want to copy from cell AH3 in the data sheet to the last row in column C in the Check sheet

Thanks

Sub Copy()
Dim Last_Row As Long

Sheets("Check").Select
Last_Row = Range("C2").End(xlDown).Offset(1).Row

Sheets("Data").Select
Range("AH3").Copy
Sheets("Check").SelectRange ("c" & Last_Row)

End Sub

 

[mumps]

How about:

Sub Copy()
    Sheets("Data").Range("AH3").Copy Sheets("Check").Cells(Sheets("Check").Rows.Count, "C").End(xlUp).Offset(1)
End Sub

 

[thedeadzeds]

How about:

Sub Copy()
    Sheets("Data").Range("AH3").Copy Sheets("Check").Cells(Sheets("Check").Rows.Count, "C").End(xlUp).Offset(1)
End Sub

great thanks, can I change that to just paste values?

 

[mumps]

Try:

Sub Copy()
    Sheets("Check").Cells(Sheets("Check").Rows.Count, "C").End(xlUp).Offset(1).Value = Sheets("Data").Range("AH3").Value
End Sub

 

[thedeadzeds]

Try:

Sub Copy()
    Sheets("Check").Cells(Sheets("Check").Rows.Count, "C").End(xlUp).Offset(1).Value = Sheets("Data").Range("AH3").Value
End Sub

Thanks so much

 

[mumps]

You are very welcome.