Исключить ячейку из строки в макросе

[Роман З]

Доброго времени суток.
Макросы умею писать только рекодером, из готовых макросов в интернете собрал вот такой макрос: Копирует последнюю заполненную строку один раз вниз на 99 листах. Все работает. Осталось исключить ячейки столбца G из копирования, сейчас копирует всю строку, либо удалить ячейку G после копирования. Копировать ячейки столбцов A, B, C, D, E, F и H, I. в них формулы. Не копировать ячейки столбца G (цифры,вводятся вручную). Помогите пожалуйста
Sub stroka()
Dim i As Integer
For i = 6 To 104
Worksheets(i).Select
If Range("I5") > 0 Then
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
Next i
End Sub

[IgorGO]

Sub stroka()
  Dim i As Integer
  For i = 6 To 104
    Worksheets(i).Select
    If Range("I5") > 0 Then
      Rows(Cells(Rows.Count, 1).End(xlUp).Row).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1) 
      Cells(Rows.Count, 1).End(xlUp).Offset(0,6).clearcontents
    End If
  Next i
End Sub

[Роман З]

Спасибо большое, работает. отблагодарю чуть позже