I have this code to delete rows based on phrase.
I need one blank row between the two phrases"Continental U.S. Ground" & "Weight (in Lbs ).
What I have found is that it will run correctly the first time - but after that it will actually delete the row with
"Continental U.S. Ground" phrase in it.
Could we add something to count the rows first, to make sure that we always have one blank row between?
Also, what if the phrase can't be found? An error code?
Dim rngFindH1 As Range
Dim rngFindH2 As Range
Set rngFindH1 = ActiveSheet.Range("A:C").Find("Continental U.S. Ground")
Set rngFindH2 = ActiveSheet.Range("A:A").Find("Weight (in Lbs )", after:=rngFindH1.Cells(1, 1))
ActiveSheet.Range(rngFindH1.MergeArea.Cells(1, 1).Offset(1), _
Prior related question: http:Q_28686495.html