Mantener Contador al pasar de un Contador a otro

Tengo una duda respecto a como utilizar el mismo Contador para dos formularios, ya que uno llama al otro, y Cuando entra en el segundo formulario, no sé como indicar que la celda en la que tiene que actuar es la celda del Contador.

Código:

Sub CommandButton1_click()

    Dim mystring As String: mystring = TextBox1.value 'N°OF
    Dim j As Integer
    Dim i As Integer
    Dim tb1 As ListObject
    Dim der As Integer: der = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For j = 2 To der
                If ActiveSheet.Cells(j, 1).Text = Mid(mystring, 41, 9) And ActiveSheet.Cells(j, 2).Text = Mid(mystring, 13, 4) Then
                    range("Tableau1").ListObject.ListRows.Add (1)
                    ActiveSheet.Cells(2, 1) = Mid(mystring, 41, 9)
                    ActiveSheet.Cells(2, 2) = Mid(mystring, 13, 4)
                    ActiveSheet.Cells(2, 6) = TextBox2.value
                    ActiveSheet.Cells(2, 3) = ActiveSheet.Cells(j, 3)
                    ActiveSheet.Cells(2, 5).value = Date
                    ActiveSheet.Cells(j, 10).value = "KO"
                    Me.Hide
                    RefaitePour.Show
                    End
                End If 'recorrer celdas para encontrar coincidencia

End sub

Y Cuando llama al formulario "RefaitePour", que tiene el código siguiente dentro de un Form:

Sub impression_click()

ActiveSheet.Cells(j, 11).Select
ActiveSheet.Cells(j, 11) = "KO impression"
Me.Hide 'fermer formulaire
End Sub

Entonces, no se como liar este j a el formulario

Atenta a sus respuestas :)