I have a spreadsheet that contains a table. In column C There is either a Y or an N. I have some code that deletes all the Y's and blank rows. I now need to insert 100 rows starting from the last row containing an N in column C.
The code i have so far inserts 100 rows but inserts it ahead of the rows left containing N moving them to the bottom.
Sheets("0708").Select
Range("C9:C48").Select
Selection.Replace What:="Y", Replacement:=" ", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Rows("9:9").Select
Selection.Insert Shift:=xlDown
Application.ScreenUpdating = False
With Range("C" & 9 & ":" & "C" & 48)
.AutoFilter
.AutoFilter Field:=1, Criteria1:="="
.AutoFilter Field:=Asc("C") - Asc("C") + 1, Criteria1:="="
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
End With
Application.ScreenUpdating = True
Range("A8").Resize(100).EntireRow.Insert
thanks for the help.
The code i have so far inserts 100 rows but inserts it ahead of the rows left containing N moving them to the bottom.
Sheets("0708").Select
Range("C9:C48").Select
Selection.Replace What:="Y", Replacement:=" ", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Rows("9:9").Select
Selection.Insert Shift:=xlDown
Application.ScreenUpdating = False
With Range("C" & 9 & ":" & "C" & 48)
.AutoFilter
.AutoFilter Field:=1, Criteria1:="="
.AutoFilter Field:=Asc("C") - Asc("C") + 1, Criteria1:="="
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
End With
Application.ScreenUpdating = True
Range("A8").Resize(100).EntireRow.Insert
thanks for the help.