Option Explicit
Sub Sample()
Dim ws As Worksheet
Dim lRow As Long, i As Long
Dim FilteredRange As Range
'~~> Change this to the relevant worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
.AutoFilterMode = False
'~~> Find last row in Col A
lRow = .Range("A" & .Rows.Count).End(xlUp).Row
'~~> Identify the rows that needs to be hidden
For i = 2 To lRow
If Left(.Range("A" & i).Value2, 1) <> " " Then
If FilteredRange Is Nothing Then
Set FilteredRange = .Rows(i)
Else
Set FilteredRange = Union(.Rows(i), FilteredRange)
End If
End If
Next i
'~~> Hide rows if applicable
If Not FilteredRange Is Nothing Then FilteredRange.EntireRow.Hidden = True
End With
End Sub