I would like to do the following. Can you assist?

If sheet exists and it is named 01,02,03,04,05,05a, then run this code

Dim lngRow As Long, blnInsert As Boolean
lngRow = 2
Do While lngRow <= Cells(Rows.Count, "G").End(xlUp).Row
blnInsert = Not blnInsert
If blnInsert Then
Rows(lngRow).Insert
Range("A" & lngRow) = Date - Range("H" & lngRow + 1)
End If
lngRow = lngRow + 1
Loop

If sheet exists and it is named
06,07,07a,08,09,10,10a,11,12,12a,13,13a,14,15,15a, then run this code

Dim dateRow As Long, emptInsert As Boolean
dateRow = 2
Do While dateRow <= Cells(Rows.Count, "G").End(xlUp).Row
emptInsert = Not emptInsert
If emptInsert Then
Rows(dateRow).Insert
Range("D" & dateRow) = Date - Range("K" & dateRow + 1)
End If
dateRow = dateRow + 1
Loop