H
horsepro001
Please help, and thank you in advance. I am trying to loop the following If
Structure until Range("E2") = "":
If Minus1Var >= ABCvar3 Then
ABCvar4 = Minus1Var * Range("E2")
Range("E2").Delete Shift:=xlUp
Range("D2").Select
Range("D2").Insert Shift:=xlDown
Range("D2").Select
Range("D2").Value = ABCvar4
Range("D2310").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Structure until Range("E2") = "":
If Minus1Var >= ABCvar3 Then
ABCvar4 = Minus1Var * Range("E2")
Range("E2").Delete Shift:=xlUp
Range("D2").Select
Range("D2").Insert Shift:=xlDown
Range("D2").Select
Range("D2").Value = ABCvar4
Range("D2310").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If