Hjælp til kode. Syntax og WHERE

Hej alle. Jeg har skrevet følgende kode:

Sub AddLinesToSheets_makro()

Dim Number_of_rows As Long

  Number_of_rows = ActiveSheet.UsedRange.Rows.Count 'Count numbers of rows used in active sheet.
 
  Range("I20").Select 'Selects cell 20 in colum I
 
    Do Until Selection.Row = Number_of_rows + 1

        If Selection.Value <> "" And Selection.Interior.ColorIndex = 34 Then
       
            Selection.EntireRow.Copy ' Copy row
           
            Windows("Total_cadence.xls").Activate ' Choose total file
            Sheets("SWG Signing").Select
-------------------------------------------------------
            **** Selections skal indsættes der hvor at Range("I20").Value = "" And Selection.Interior.ColorIndex = 34?????


Selection.EntireRow.Insert
-------------------------------------------------------
            Selection.Offset(1, 0).Select
           
            Number_of_rows = Number_of_rows + 1 ' Add 1 to total number of rows.
            Selection.Offset(2, 0).Select ' Selects 2nd cell down from selection. Ex. If cell 1 is selected, the will cell 3 be selected.
        Else
            Selection.Offset(1, 0).Select

        End If
    Loop ' starts the loop.
End Sub



En hurtig beskrivelse:

Jeg kører igennem, hvor mange linjer der er i brug i sheetet. Der hvor at værdien for I20 er "" og bagrunden er 34 så skal hele row kopieres.
Så vælger jeg en anden fil. I det sheet skal den row jeg havde copieret indsætte hvor værdien af Range("I20").Value = "" And Selection.Interior.ColorIndex = 34. Det er dette jeg ikke kan gennemskue, hvordan jeg skal skrive dette?

Mvh