Visual Basic - Werte in ausgeblendete Zeilen eintragen

Sub ChangePrice()
    Dim rgFound As Range, rgNew As Range
    'Aktualisierung des Bildschirms unterdrücken  
    Application.ScreenUpdating = False
    With ActiveSheet
        'Zeilen der Produkte kurzzeitig sichtbar machen  
        .Range("5:" & Rows.Count).EntireRow.Hidden = False  
        'Suche Produkt  
        Set rgFound = .Range("A6:A" & Rows.Count).Find(.Range("A3"), LookIn:=xlValues, LookAt:=xlWhole)  
        'Wurde Produkt gefunden ?  
        If rgFound Is Nothing Then
            'Wurde kein Produkt gefunden ermittle die nächste leere Zelle und  übertrage die Werte des neuen Produktes dorthin  
            Set rgNew = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            .Range(rgNew, rgNew.Offset(0, 2)).Value = .Range("A3:C3").Value  
        Else
             'Produkt wurde gefunden, ändere dessen Werte entsprechend  
            .Range(rgFound, rgFound.Offset(0, 2)).Value = .Range("A3:C3").Value  
        End If
        'Zeilen der Produkte wieder ausblenden  
        .Range("5:" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row).EntireRow.Hidden = True  
    End With
    'Anzeige wieder aktualisieren  
    Application.ScreenUpdating = True
End Sub