Wer kann Helfen

der nachfolgenden Code überträgt Daten aus einer Tabelle in eine zweite “Übersicht“, läuft auch gut.

Sub Uebertragen()
Dim iRow As Integer, iRowT As Integer
With Worksheets("Übersicht")
Rows(3).Insert Shift:=xlDown
iRowT = 3
For iRow = 2 To 7
.Cells(iRowT, iRow - 1).Value = Cells(iRow, 3).Value
Next iRow
End With
End Sub

Nun aber sollen die Daten auch übertragen werden wenn “Übersicht“ ausgeblendet ist.
Wie muß der Code aussehen.
Danke!

Gruss René