Find and select all cell ranges that are not empty

I have a large range of cells that I am trying to select easily because it is too large to manually select and copy every time. I am looking for a way to quickly locate the entire range of data and select it. Not to be confused with only selecting every non-empty cell. There are cells within the big range that could be empty, but I also want to include them.

Example is my photo. I want to discover and select all the data that is A1:E7, including the cells in the middle that may be empty. If possible, I would want to de-select the heading as well and only select A2:E7.

So far I have managed to select everything with:

Range("A1").CurrentRegion.Select

But I am unsure how to de-select the top row after that.

>Solution :

Try this

Sub selectWithoutHeaders()
    With Range("A1").CurrentRegion
        .Offset(1, 0).Resize(.Rows.Count - 1).Select
    End With
End Sub