Sub Insert_Row_on_Qty()
Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Cells(c, 6).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub
Sub Insert_Row_on_Qty()
Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Rows(c).Insert Shift:=xlDown
Next
End Sub
So you say - I need it to keep the row that Qty is in and add blank row above as Qty is a heading
But mean - I need it to keep the row that Qty is in and add blank row Below as Qty is a heading
[pre]
Code:
Sub Insert_Row_on_Qty()
Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Rows(c + 1).Insert Shift:=xlDown
Next
End Sub