Last cell value copy error

[drluke]

I want to copy the value in the last cell in a column to a cell in another worksheet, and add 1 to it.
I don't know why this code gives a type mismatch error?

Sub copyValue()

Sheets("Additions").Range("A47").Value = Sheets("Test FAR").Range("A" & Rows.Count).End(xlUp).Value + 1
     
End Sub

 

[Joe4]

Sounds like the value it is returning is not a number you can add to.
What does this test return?

Sub Test()
    MsgBox Sheets("Test FAR").Range("A" & Rows.Count).End(xlUp).Value
End Sub

 

[VincentNL99]

I would do it like this

Sub copyValue()

lRow = Sheets("Test FAR").Cells(Rows.Count, 1).End(xlUp).Value
Sheets("Additions").Range("A47").Value = lRow + 1     

End Sub

 

[Joe4]

I would do it like this

Sub copyValue()

lRow = Sheets("Test FAR").Cells(Rows.Count, 1).End(xlUp).Value
Sheets("Additions").Range("A47").Value = lRow + 1  

End Sub

That shouldn't really make any difference.
And note that they are NOT trying to get the last row number in column A, but rather the value of the last populated cell in column A.

 

[VincentNL99]

That shouldn't really make any difference.
And note that they are NOT trying to get the last row number in column A, but rather the value of the last populated cell in column A.

Yes I know it shouldn't make a difference but it makes it easier to locate the error