unhide row and insert data

[tintin1012000]

Im using the below code to insert content of D4 into ''invoice'',

when this code has run I want to unhide all rows from A5 to A99 that have an entry in A

EG
Cells A5 to A10 have data, these cells needs to be un hidden, Cells A11 to A99 have now data and need to be hidden

    Range("D4").Select
    Selection.Copy
    Sheets("INVOICE").Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Sheets("STOCK OVERVIEW").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G4").Select

 

[mumps]

Try:

Sub Test()
    Application.ScreenUpdating = False
    Dim x As Integer
    For x = 99 To 5 Step -1
        If Cells(x, 1) <> "" Then
            Rows(x).EntireRow.Hidden = False
        Else:
            Rows(x).EntireRow.Hidden = True
        End If
    Next x
    Application.ScreenUpdating = True
End Sub