Try this untested code 
Sub matchEm()
Dim rRow As Range, rCol As Range
Dim Sht1 As Excel.Worksheet, Sht2 As Excel.Worksheet, sPassword As String
sPassword = "ops9999"
Set Sht1 = Sheets("Sheet1")
Set Sht2 = Sheets("Timesheet Log")
Application.ScreenUpdating = False
With Sht2
.Unprotect sPassword
Set rRow = .Range("B:B").Find(Sht1.Range("A2").Value, , , xlWhole)
If Not rRow Is Nothing Then
Set rCol = .Range("2:2").Find(Sht1.Range("E2").Value2, , , xlWhole)
If Not rCol Is Nothing Then
Sht1.Range("G2:J2").Copy
.Cells(rRow.Row, rCol.Column).PasteSpecial xlPasteValues, , , True
End If
End If
.Protect sPassword, True, True
End With
Application.ScreenUpdating = True
End Sub
Bookmarks