Gemme rækker via VBA

Prøv lige den her, du skal selv ændre Worksheets("Ark1") til det navn du bruger

Sub SkjulFalske()
Dim Rng As Range
Dim start As Range
Dim c As Range
Dim x As Long
Dim ws As Worksheet

Set ws = Worksheets("Ark1")
Set start = ws.Range("I1")
Set Rng = ws.Range(start.Address, ws.Cells(65536, start.Column).End(xlUp).Address)

For Each c In Rng
x = x + 1
    If c.Value = False Then c.EntireRow.Hidden = True
Next
End Sub

Hvis de linier der ikke er TRUE heller ikke indeholder FALSE
erstat linien
If c.Value = False Then c.EntireRow.Hidden = True
med
If c.Value <> True Then c.EntireRow.Hidden = True

Eller hvis du kender celleområdet på forhådn så bare

Sub skjul()
    For Each c In ActiveSheet.Range("i1:i5").Cells
        If c.Value <> True Then
            c.EntireRow.Hidden = True
        End If
    Next c
End Sub

Brml - > virker det ?  Giv os lidt respons ....

Du har ikke overvejet et autofilter?
Hvis du ikke vil slette dataene men bare gemme dem så lydder et autofilter som det helt rigtige.