VBA code help needed

_Random_Excel_User_ 

Thank you for your private message. The layout of the September sheet is partly different from your description in the first post, so the code had to be modified. I also made it a bit simpler for you to read and adjust, if necessary.

Sub CopyData()
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim rng As Range
    Dim r As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Inventory Summary")
    Set wt = Worksheets("September")
    Set rng = wt.Range("A:A").Find(What:=ws.Range("H3").Value, LookIn:=xlValues, LookAt:=xlWhole)
    If rng Is Nothing Then
        MsgBox "Date not found!", vbCritical
    Else
        r = rng.Row
        wt.Range("D" & r).Value = ws.Range("B4").Value
        wt.Range("E" & r).Value = ws.Range("B5").Value
        wt.Range("F" & r).Value = ws.Range("B6").Value
        wt.Range("H" & r).Value = ws.Range("B9").Value
        wt.Range("I" & r).Value = ws.Range("B10").Value
        wt.Range("J" & r).Value = ws.Range("B11").Value
        wt.Range("K" & r).Value = ws.Range("B12").Value
        wt.Range("L" & r).Value = ws.Range("B13").Value
        wt.Range("N" & r).Value = ws.Range("B15").Value
        wt.Range("O" & r).Value = ws.Range("B17").Value
        wt.Range("P" & r).Value = ws.Range("B18").Value
        wt.Range("Q" & r).Value = ws.Range("B19").Value
        wt.Range("R" & r).Value = ws.Range("B20").Value
        wt.Range("S" & r).Value = ws.Range("B21").Value
        wt.Range("T" & r).Value = ws.Range("B22").Value
        wt.Range("V" & r).Value = ws.Range("B23").Value
        wt.Range("W" & r).Value = ws.Range("B24").Value
        wt.Range("Y" & r).Value = ws.Range("B26").Value
    End If
    Application.ScreenUpdating = True
End Sub

See the attached version, now a macro-enabled workbook (.xlsm). You'll have to allow macros when you open it.