'===================================== ' Start Copy/Paste Values only section Column D -> H, Rows 3 -> 52 '===================================== ws.Range("D3:H52").Copy ' Copy the data from more stuff (Row 3) -> stuff # (Row 52) ws.Range("D3:H52").PasteSpecial Paste:=xlPasteValues ' Pastes value only, dropping the array created by xxxx Application.CutCopyMode = False ' Clears values so not to double paste if users clicks on cell or hits Return '===================================== ' If stuff = null fill range with FALSE ' Leave IS/M (Row 27) blank '===================================== ' Cells(Row, Column) -> Row 3, Column 8 -> H3 If IsEmpty(Cells(3, 8)) = True Then ws.Range("H12:H26").Value = "FALSE" ws.Range("H28").Value = "FALSE" End If
Is there a better option and one that will work without having to issue the code a 2nd time?
By null I just mean no value entered into cell. Before the copy/paste section runs there is an array in all cells in row 3. After the copy/paste there should only be either a name or a blank cell. The IsEmpty does not see the blank cell the first time the code runs. However the 2nd time I run the code IsEmpty will then see the cell in row 3 as null and populate the correct "FALSE" output in the ranges indicated.