Something like this perhaps?
No looping involved.
Sub ExccelForum()
Dim formula$, lr&
With Sheets("Original")
If .AutoFilterMode = True Then .AutoFilterMode = False
If .FilterMode = True Then .FilterMode = False
lr = .Cells(Rows.Count, 1).End(xlUp).Row
If .Range("A1") = vbNullString Then .Range("A1") = "ExcelForumTemp"
.Range("A1:A" & lr).AutoFilter Field:=1, Criteria1:="D05"
.Range("A2:A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:A" & lr).AutoFilter Field:=1, Criteria1:="F11"
.Range("A2:A" & lr).SpecialCells(xlCellTypeVisible).Offset(, 2).formula = "=FORMULATEXT(INDIRECT(""loc!C""&MATCH(Original!RC[-1],loc!C[-1],0)))"
.Range("A1:A" & lr).AutoFilter Field:=1, Criteria1:="<>F11"
.Range("A2:A" & lr).SpecialCells(xlCellTypeVisible).Offset(, 2).formula = "=FORMULATEXT(INDIRECT(""loc!C""&MATCH(Original!RC[-2],loc!C[-2],0)))"
.AutoFilterMode = False
If .Range("A1") = "ExcelForumTemp" Then .Range("A1") = vbNullString
End With
End Sub
Bookmarks