Automatically copy data from one worksheet to another based on current month

Private Sub tester()

Sheets("pending stocks").Select
Range("B4").AutoFilter Field:=4, Criteria1:="<=" & Str(Date)
Range("Table2").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("historicaldata").Select
ActiveSheet.Paste

End Sub

Kihoro said:

hi guys
i would like to copy data from the table in worksheet 'pending stocks' to the worksheet 'historical data' based on current month. eg all data range B4:E15 that has E.T.A details as September 2012 or any month before September 2012 should be copied to worksheet 'historical data' if the current system month is equal to September 2012.
is this possible? :confused2:
please find attached
i hope i have explained my question well.

thanks in advance.

sincerely

john kihoro

Click to expand...