Reference a date, then copy and transpose paste into a date specific location

Let's try that again without all that recorded "selecting", always need to remove that from recorded macros.

Option Explicit

Sub try()
Dim x As String, xFIND As Range

    x = Sheets("Sheet1").Range("a1").Value
    On Error Resume Next
    Set xFIND = Sheets("Sheet2").Cells.Find(x, LookIn:=xlValue, LookAt:=xlPart) 'or xlwhole?
    If Not xFIND Is Nothing Then
        Sheets("Sheet1").Range("A2:A4").Copy
        xFIND.Offset(, 1).pasteall , Transpose:=True
    End If

End Sub