copying hidden cells and paste to non hidden cells on same sheet

I'm trying to copy hidden cells and paste them to non hidden rows, i'm useing

Private Sub CommandButton1_Click()
Range("A5:I10").Copy
    
    'here it determines the first free row
    firstFreeRow = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row + 4
    Range("A" & firstFreeRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D" & firstFreeRow).Select
End Sub

and this works just fine for cutting selected cells, and pasteing them were I need them, but as soon as I hide A5:I10- I do not get the same result.-
were do I go from here- I have searched the message boards for this question and can not find anything that will help with this situation.
thanx