To spørgsmål, makroer i excel

Hej alle

Jeg har et par spørgsmål.

1. Jeg vil gerne lave en makro/kode, hvor man tester om der står noget i f.eks celle e2, hvis ja så skal celle j2's skrifttype være grøn. Det er nemt nok for den enkelte række, men hvad så hvis den skal teste alle cellerne i kollonne e2. For den enkelte celle har jeg koden:

If Range("e2") > 0 Then
 
  Range("j2").Select
  With ActiveCell
  Selection.Font.ColorIndex = 4
  End With
  End If

2. Jeg kunne godt tænke mig at lave en kode, hvor jeg kopierer et område fra 1 ark til et andet, men den skal undlade at kopiere nogle rækker. Der står et tal i de rækker, og tænkte om man kan lave en funktion så de rækker fjernes i kopieringsprocessen.

Indtil videre har jeg koden:

Sheets("Køb - Salg").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Nuværende portefølje").Select
    Range("A1").Select
    ActiveSheet.Paste

Når der indsættes er der nogle rækker jeg gerne vil undlade.

Nogle ideer.

Mikkel
H