Sub Test()
    Dim dtDate As Date, dSales As Double, dExpenses As Double, dProfit As Double
    Dim Rng As Range, LO As ListObject

    With Worksheets("Sales")
        dtDate = CDate(.Range("B1"))
        dSales = .Range("E3")
        dExpenses = .Range("F3")
        dProfit = .Range("G3")
    End With
    
    With Worksheets("Sales Data")
        Set LO = .ListObjects(1)
        Set Rng = LO.HeaderRowRange.Find(Format$(dtDate, "dd\/MM\/yy"), , xlFormulas, xlWhole)
        If Not Rng Is Nothing Then
            With LO.DataBodyRange
                .Cells(1, Rng.Column).Value = dSales
                .Cells(2, Rng.Column).Value = dExpenses
                .Cells(3, Rng.Column).Value = dProfit
            End With
        End If
    End With
End Sub