why not just autofilter jan 12 sheet field column M and cirtieria blank
and copy filtered data to feb 12 sheet for which the macro is below
in each month end you have to change the sheet names in the macro and run the macro
the file with feb12 filled can be downloaded from
one suggestion for permanent attention. If you want to write a macro
DO NOT make cosmetic changes to the sheets like coloring,merging, changing font etc. These cosmetic changes should be done only at the last stage that is just before presenting to your boss or users. Otherwise the writing macro becomes little more difficult and complicated. Keep this in mind.
The macro is in the module and is also repeated herer
if you want to retest run undo and then "test"
Dim filt As Range, r As Range
Set r = Range("A3").CurrentRegion
r.AutoFilter field:=Range("M1").Column, Criteria1:=""
Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
With Worksheets("Feb 12")
.Cells(Rows.Count, "A").End(xlUp).Offset(2, 0).PasteSpecial
ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False
Dim llastrow As Long
llastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range(Range("a5"), Cells(llastrow, "A")).EntireRow.Delete