VBA Code to Delete Blank rows between data

[Dastnai]

Hi Everyone,

I am looking for a code to delete blank rows between data in a sheet. Thank you for your help.

Regards,

Dastnai

 

[mumps]

Try:

Sub deleteBlankRows()
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[Dastnai]

Try:

Sub deleteBlankRows()
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Where would I paste into this code? My goal is to delete blank rows from the Archived Data Sheet after I copy and paste values from the INQ Dashboard A3:R52.

Sub AD()
'
' AD Macro
'


'
Range("A3:R52").Select
Selection.Copy
Sheets("Archived Data").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
ActiveCell.Offset(1, 18).Range("A1").Select
Sheets("INQ Dashboard").Select
Application.CutCopyMode = False
Range("S3").Select
End Sub

 

[mumps]

Try:

Sub AD()
    Sheets("INQ Dashboard").Range("A3:R52").Copy
    Sheets("Archived Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets("Archived Data").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub