Inspect document and delete hidden rows with VBA

Hey all,

So I have figured out how to do a filter on rows and delete all the hidden ones (which I don't need at all) with inspect document, searching for hidden rows and columns, and deleting them, but I can't do this with a macro. I tried using the recorder and it gave me the following code, but it doesn't work. I also added the "with" statement at the end in an attempt to have it select the first empty box and then find the sum of all cells above it, but I'm not as worried about that right now. Thanks!

Sub reviewdata()
'
' reviewdata Macro
' This will edit out all unnecessary data to find reviewer totals and averages.
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Columns("A:A").ColumnWidth = 22
Columns("B:B").ColumnWidth = 22
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("A:D").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$214").AutoFilter Field:=2, Criteria1:= _
"=Content Review (Article)", Operator:=xlOr, Criteria2:= _
"=Content Review (Blog)"
ActiveWorkbook.RemoveDocumentInformation (xlRDIPrinterPath)
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*60/RC[-1]"
Range("E2").Select
Selection.FillDown
With wsThis
nNextRow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
If nNextRow < 29 Then nNextRow = 29
End With
ActiveCell.FormulaR1C1 = "=SUM(R[-R+2]C:R[-1]C)"
End Sub