Set header to row 2

[alialeola]

Hi guys,

I am VBA level -1 and I need help with the below.

The macro should bring excel header on row 2, with these 2 possible scenarios:
- insert 1 blank row if there is data on row 1
- if there are several blank rows above the data, keep just 1 of them

Hoping it's clear, could you pls pls pls assist?

 

[Joe4]

Perhaps something like this?

Sub HeaderMacro()

    Dim FirstRow As Long
    
'   Check to see if data in cell A1 and if not, insert row
    If Range("A1") <> "" Then
        Rows(1).Insert
    Else
'       Find first row with data in column A
        FirstRow = Range("A1").End(xlDown).Row
'       Delete rows if FirstRow greater than 2
        If FirstRow > 2 Then
            Rows("2:" & FirstRow - 1).Delete
        End If
    End If
    
End Sub