hente data fra et andet ark - fortsat

Jeg har fået hjælp til et spørgsmål tidligere:
http://www.eksperten.dk/spm/821625

Som endte ud i denne kode.
Den virker perfekt, men der er en variation mere, som jeg gerne vil have løst.

I ark2 er nolge gange både positive og negative tal i kolonne F.
Hvis dette er tilfældet skal den gøre "næsten" som den kode der allerede er lavet.

Hvis tallet er positivt skal den overføre til kolonne E. i ark1.
Hvis tallet er negativt skal den overføre til kolonne F. i ark1.

Jeg kan ikke selve hitte ud af at få lagt en if-sætning ind i koden. Er der nogle af jer andre der kan?


Sub hentdata()
    Dim c As Range, i as integer
    i = 4
    For Each c In Application.Intersect(Worksheets("Ark2").UsedRange, Worksheets("Ark2").Range("A:A"))
        If c.Row > 4 Then
            If c <> "" Then
                Worksheets("Ark1").Range("A4").Offset(i, 0) = c.Offset(0, 0)
                Worksheets("Ark1").Range("B4").Offset(i, 0) = c.Offset(0, 1)
                Worksheets("Ark1").Range("C4").Offset(i, 0) = c.Offset(0, 2)
                Worksheets("Ark1").Range("D4").Offset(i, 0) = c.Offset(0, 3)
                Worksheets("Ark1").Range("E4").Offset(i, 0) = c.Offset(0, 4)
                i = i + 1
            End If
        End If
    Next
End Sub