The following error : run-time error 438 occures when I click a button
called Add to ledger:

Sub ADDtoLedger_Click()
Dim sh As Worksheet, lastrow As Long
Set sh = Worksheets("Data")
With Worksheets("Log")
lastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If lastrow = True Then lastrow = Cells(Rows.Count,
1).End(xlDown).Row + 1
.Cells(.Row).Value = sh.Range("C3").Value & ", " & _
sh.Range("C5").Value & " " & sh.Range("C7").Value
.Cells(lastrow, 2).Value = sh.Range("W3").Value
End With

End Sub

Can someone help me out with this code - the error says Object doesn't
support this property or method. In the VB editor it yellows the
rows .Cells(.Row).Value and sh.Range("C5...

I am trying to track all the data I enter on one sheet (called Data)
to a ledger that has all entries from previous occasions (called
Log).

Thanks, Bull