Here is the code that I have been working on... But I can not get it
to work..

Sub OptionButton1_Click()

TEMPLATE_SHEET = "Data_Input"
Database_sheet = "Carrier"
Application.ScreenUpdating = False

myzerorange = "C" & ActiveWindow.RangeSelection.Row & ":" & "M" &
ActiveWindow.RangeSelection.Row
mycompany = "C" & ActiveWindow.RangeSelection.Row
mydate = "D" & ActiveWindow.RangeSelection.Row
Database_sheet = ActiveSheet.Name
DATABASE_RECORDS = Sheets(Database_sheet).Range("C2:C1000")
Count_Row = 13

If Range(mycompany) < "" Then
If Range(mydate) < "" Then
'Range(mydate) = contractdate
If mydate < DateAdd("d", 14, "Today()") Then
Range(myzerorange).Copy
Sheets(TEMPLATE_SHEET).Select

'To identify the next blank row in the database sheet

DATABASE_RECORDS =
Sheets(TEMPLATE_SHEET).Range("C13:C1000")
'To identify the next blank row in the data_Input
sheet
For Each DBRECORD In DATABASE_RECORDS
If DBRECORD < "" Then Count_Row = Count_Row + 1
Next DBRECORD

Sheets(TEMPLATE_SHEET).Range("C" & Count_Row).Select
ActiveSheet.Paste

'Return to origin and check for another contract date
Sheets(Database_sheet).Select
Else

End If
Else

End If
End If
Application.ScreenUpdating = True

End Sub