Option Explicit

Sub Checkdate()

Dim temp As Date
Dim source_ As Object, tocopy_ As Object
Dim blank_cell As Range
Dim cc As Range

Set source_ = Sheets( 1 )
Set tocopy_ = Sheets( 2 )

For Each cc In source_.UsedRange.Columns( 12 ).Cells
    If IsDate(cc.Value) Then
        temp = cc.Value
        If temp <= Now() +  30  Then
            Set blank_cell = tocopy_.Cells(tocopy_.Range("a" & Rows.Count).End(xlUp).Row +  1 ,  1 )
            source_.Rows(cc.Row).EntireRow.Copy blank_cell
            If (temp - Now()) >  0  Then
                blank_cell.Offset( 0 ,  14 ).Value = Val((temp - Now()))
                blank_cell.Offset( 0 ,  14 ).HorizontalAlignment = xlCenter
                blank_cell.Offset( 0 ,  14 ).VerticalAlignment = xlTop
            Else
                With blank_cell.Offset( 0 ,  15 )
                .Value = Val((Now() - temp)): .HorizontalAlignment = xlCenter: .VerticalAlignment = xlTop
                End With
            End If
        End If
    End If
    
Next

End Sub

Private Sub Workbook_Open()
Checkdate
End Sub