Excel - Macro para separar número negativo de positivo

Sub separar_datos()

Dim i As Integer, contador As Integer

Worksheets("base").Activate

For i = 2 To fin

contador = 0

If Worksheets("base").Cells(j, 12) < 0 Then

contador = contador + 1

If contador = 1 Then

Range("S") = Cells(i, 1).Value

End If

End If

Next

End Sub

ReSub separar_datos()

    Dim i As Integer, contador As Integer

    Worksheets("base").Activate

    For i = 2 To fin  ' --- ¿Qua valor tiene la variable fin? Fin vale CERO

        contador = 0   ' --- ¿Qué estas contando?

        If Worksheets("base").Cells(j, 12) < 0 Then  ' --- De donde sale la J

            contador = contador + 1   ' --- El resultado será siempre 1

            If contador = 1 Then         ' --- Siempre cumplida la condición

                Range("S") = Cells(i, 1).Value  ' --- ¿Asignas el valor de una celda a toda la columna?

            End If

        End If  ' --- Y los positivos ¿Dónde van?

    Next

End Sub