Filter, Split And Move Data For Each Month From Master Workbook To Individual Sheet

[bakerman]

Change this line

.Range("$A$1:$AH$" & .Cells(.Rows.Count, 1).End(xlUp).Row).Copy wbkNew.Sheets(1).Cells(1)

into this one

.AutoFilter.Range.SpecialCells(xlVisible).Copy wbkNew.Sheets(1).Cells(1)

This should solve your problem.