How do I create a function that is sent one variable. I
want it be sent a variable called i and another FinalRow.
Then I want it to do it's thing. I want to be able to
call this function at anytime in my macro by just typing
FunctionName(i,FinalRow). Here what I want to be included
in my function

n = i
For n = i To FinalRow
If (Range("A" & n).Value) = "" And (Range("B" & n).Value)
= 1 And (Range("C" & n).Value) = 1 And (Range("D" &
n).Value) = "" Then
Rows(n & ":" & n).Cut
Rows(i & ":" & i).Insert Shift:=xlDown
End If
Next n

Thank you