Copy and paste from one sheet to another leaving out hidden cells

I'm still confused. Do you want too move data from Exdrie (from the specified column headers in Post#6) if the rows are not hidden? Create a List on the List Sheet? Down the Column or Accross the row?

I want to copy certain parts od the data that is not hidden from the ExDrie sheet and paste it Down the Columns on the List sheet.

Originally Posted by si_1970

I want to copy certain parts od the data that is not hidden from the ExDrie sheet and paste it Down the Columns on the List sheet.

Are the certain parts you want those you list in Post #6? And do you want the information posted by down or accross on the list sheet?

Does this do what you want?

Sub si_1970A()
Range("A13").Select
Do Until ActiveCell.Value = ""

    If ActiveCell.EntireRow.Hidden = True Then GoTo z
    
    ActiveCell.Offset(, 5).Copy Sheets("List").Range("A" & Rows.Count).End(3)(8)
    ActiveCell.Offset(, 12).Copy Sheets("List").Range("B" & Rows.Count).End(3)(8)
    ActiveCell.Offset(, 13).Copy Sheets("List").Range("C" & Rows.Count).End(3)(8)
    ActiveCell.Offset(, 14).Copy Sheets("List").Range("D" & Rows.Count).End(3)(8)
    ActiveCell.Copy Sheets("List").Range("E" & Rows.Count).End(3)(8)
    
z:
    ActiveCell.Offset(1).Select
Loop
Sheets("List").Range("A1").EntireRow.Delete xlUp
    
End Sub