how to select blank data in linked cells - VBA

[SilentRomance]

Hi guys,
how to select blank data in linked cells.
This is my sample data in Sheet 1

13-Aug-21

13-Aug-21

13-Aug-21

13-Aug-21

And this is the Formulas in Sheet 2

=IF('Sheet1'!A1 = FALSE, "",'Sheet1'!A1)

=IF('Sheet1'!A2 = FALSE, "",'Sheet1'!A2)

=IF('Sheet1'!A3 = FALSE, "",'Sheet1'!A3)

=IF('Sheet1'!A4 = FALSE, "",'Sheet1'!A4)

=IF('Sheet1'!A5 = FALSE, "",'Sheet1'!A5)

=IF('Sheet1'!A6 = FALSE, "",'Sheet1'!A6)

=IF('Sheet1'!A7 = FALSE, "",'Sheet1'!A7)

Output in sheet 2

13-Aug-21

13-Aug-21

13-Aug-21

13-Aug-21

And i want to select those blank data to delete it or color it.
How do i do it in VBA?

 

[maabadi]

You want to Blank cell at Sheet1!? Is this Correct?

 

[SilentRomance]

You want to Blank cell at Sheet1!? Is this Correct?

no, I want to select those blank in sheet 2.
I use specialcells but vba gave me error message

 

[maabadi]

Try this:

Sub Macro2()
Dim Lr&
    Lr = Sheets("Sheet2").Range("A1").End(xlDown).Row
    Sheets("Sheet2").Range("A1:A" & Lr).Interior.Color = xlNone
    Sheets("Sheet2").Range("A1:A" & Lr).SpecialCells(xlCellTypeFormulas, 22).Interior.Color = vbRed
End Sub