How do I create a sub function

[atoth22]

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

n = i
For n = i To FinalRow
If (Range("A" & n).Value) = "" And (Range("B" & n).Value) = 1 An
(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 yo

 

[Township of East Hanover]

Function MyFunction(I As Integer, FinalRow As Integer) As String

Your code here
MyFunction = Result
End Function

But I think what you want is something else because a function is used for
returning a value.
What you might want is a Sub.

Public Sub MySub(I As Integer, FinalRow As Integer)
Your Code Here
End Sub