I want to create a command button in order to copy and paste data (based on date) from a workbook to another

[jaquimdascoves]

I want to create a command button in order to copy and paste data from a workbook to another. I have 2 workbooks that have the same info and I want to create a button that copies the data in the red cells from workbook1 (see image)and pastes it in the green cells of workbook 2 (see image) based on the fact that the date above the green cells has to be before today´s date, if not it doesn't paste the info. For the cells that have the error #DIV/0!, i want to the green cells in workbook 2 to be blank. Cheers everyone! And thank you for any type of help!

 

[jaquimdascoves]

I have resolved my problem with this code code that I made for a excel similar to the format of this one:
I ended up using a normal button instead of a command button

Sub Refresh()
'
' Refresh Macro
'
Dim i As Integer
 
i = 4

Workbooks.Open "Location"

While ThisWorkbook.Worksheets("Sheet1").Cells(3, i).Value <= Now()
    
        ThisWorkbook.Worksheets("Sheet1").Columns(i).Copy
        Workbooks("Workbook1").Worksheets("Sheet1").Select
        Workbooks("Workbook1").Worksheets("Sheet1").Cells(4, i).EntireColumn.Select
        'ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        i = i + 1

Wend
Workbooks("Workbookx").Close SaveChanges:=True

End Sub