Macro to copy Data where Date is > Today()

I am getting an error object required:

    Set CurrentWb = ThisWorkbook
    For Each Ocell In WsTData.Range(WsTData.Cells(2, 18), WsTData.Cells(Rows.Count, 18).End(xlUp))
        If Ocell.Value >= Date Then
            'Set NewWb = Workbooks.Add
            'NewWb.Worksheets("Sheet1").Name = "NewWsName"
            'Set NewWs = NewWb.Worksheets("NewWsName")
            'NewWs.Rows(1).EntireRow.Cells.Value = WsTData.Rows(1).EntireRow.Cells.Value
            Sheets.Add
            Sheets("Sheet1").Select
            Sheets("Sheet1").Name = ("Testing")
            GreaterThanExists = True
            Exit For
        Else
            GreaterThanExists = False
        End If
    Next Ocell
    If GreaterThanExists = True Then
        For Each Ocell In WsTData.Range(WsTData.Cells(2, 18), WsTData.Cells(WsTData.Rows.Count, 18).End(xlUp))
            If Ocell.Value >= Date Then
                Sheets("Testing").Cells(Testing.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Cells.Value = Ocell.EntireRow.Cells.Value
                'NewWs.Cells(NewWs.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Cells.Value = Ocell.EntireRow.Cells.Value
            End If
        Next Ocell
    End If
End Sub

The line of code that it doesn't like is:

Sheets("Testing").Cells(Testing.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Cells.Value = Ocell.EntireRow.Cells.Value