So I've got this code that copies cells from one workbook to another.

Sub PostToCommercialWorkLog()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Set WS1 = Worksheets("Tracking Sheet")
Workbooks.Open "G:\Commercial work\COMMERCIAL_WORK_LOG.xlsx"
Set WS2 = Worksheets("Log")
' Figure out which row has the job nr
findrow = Application.Match(WS1.Range("D2"), Range("A:A"), 0)
If Not IsError(findrow) Then
WS2.Cells(findrow, 2) = WS1.Range("B1")
WS2.Cells(findrow, 3) = WS1.Range("D1")
WS2.Cells(findrow, 4) = WS1.Range("B2")
WS2.Cells(findrow, 5) = WS1.Range("F3")
WS2.Cells(findrow, 6) = WS1.Range("F1")
WS2.Cells(findrow, 7) = WS1.Range("F2")
WS2.Cells(findrow, 8) = WS1.Range("D16")
WS2.Cells(findrow, 9) = WS1.Range("E16")
WS2.Cells(findrow, 10) = WS1.Range("H2")
    WS2.Cells(findrow, 11) = WS1.Range("D3")
WS2.Cells(findrow, 12) = WS1.Range("H58")
WS2.Cells(findrow, 13) = WS1.Range("H58" * 0.3)
WS2.Cells(findrow, 15) = WS1.Range("H59")
Else
' Figure out which row is the next row
NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
' Write the important values to the Proofer Payment
WS2.Cells(NextRow, 1).Resize(1, 9).Value = Array(WS1.Range("D2"), WS1.Range("B1"), WS1.Range("D1"), WS1.Range("B2"), WS1.Range("F3"), WS1.Range("F1"), WS1.Range("F2"), WS1.Range("H2"), WS1.Range("D3"))
End If
Workbooks("COMMERCIAL_WORK_LOG.xlsx").Close SaveChanges:=True
End Sub
However when it's run I get a Runtime Error 13 Type Mismatch error and this line is highlighted in the debugger

WS2.Cells(findrow, 13) = WS1.Range("H58" * 0.3)

I'm a VBA newbie and wasn't sure how to write this so guessed. Basically I want what is put into column 13 to be the result of H58 x 0.3. I don't know if the reason I'm getting that error is because I've written it wrong or because H58 is empty. There will be times when H58 will be empty and if it is, it should ideally return nothing at all.

Anyone know why I'm getting this error?