Removing blank rows based on cell value

[Jedi Master]

Formula in Cell B20: =LET(X,VSTACK('Quote Task Worksheet '!M3,'Quote Task Worksheet (2)'!M3,'Quote Task Worksheet (3)'!M3,'Quote Task Worksheet (4)'!M3,'Quote Task Worksheet (5)'!M3,'Quote Task Worksheet (6)'!M3,'Quote Task Worksheet (7)'!M3,'Quote Task Worksheet (8)'!M3,'Quote Task Worksheet (9)'!M3,'Quote Task Worksheet (10)'!M3,'Quote Task Worksheet (11)'!M3,'Quote Task Worksheet (12)'!M3,'Quote Task Worksheet (13)'!M3,'Quote Task Worksheet (14)'!M3,'Quote Task Worksheet (15)'!M3,'Quote Task Worksheet (16)'!M3,'Quote Task Worksheet (17)'!M3,'Quote Task Worksheet (18)'!M3,'Quote Task Worksheet (19)'!M3,'Quote Task Worksheet (20)'!M3,'Quote Task Worksheet (21)'!M3,'Quote Task Worksheet (22)'!M3,'Quote Task Worksheet (23)'!M3,'Quote Task Worksheet (24)'!M3,'Quote Task Worksheet (25)'!M3,'Quote Task Worksheet (26)'!M3,'Quote Task Worksheet (27)'!M3,'Quote Task Worksheet (28)'!M3,'Quote Task Worksheet (29)'!M3,'Quote Task Worksheet (30)'!M3,'Quote Task Worksheet (31)'!M3,'Quote Task Worksheet (32)'!M3,'Quote Task Worksheet (33)'!M3,'Quote Task Worksheet (34)'!M3,'Quote Task Worksheet (35)'!M3,'Quote Task Worksheet (36)'!M3,'Quote Task Worksheet (37)'!M3,'Quote Task Worksheet (38)'!M3,'Quote Task Worksheet (39)'!M3,'Quote Task Worksheet (40)'!M3,'Quote Task Worksheet (41)'!M3,'Quote Task Worksheet (42)'!M3,'Quote Task Worksheet (43)'!M3,'Quote Task Worksheet (44)'!M3,'Quote Task Worksheet (45)'!M3,'Quote Task Worksheet (46)'!M3,'Quote Task Worksheet (47)'!M3,'Quote Task Worksheet (48)'!M3,'Quote Task Worksheet (49)'!M3,'Quote Task Worksheet (50)'!M3),IFERROR(UNIQUE(FILTER(X,INDEX(X,,1)<>"")),""))

There are similar formulas in cells C,D,E20. Since I am looking at 50 worksheets, I potentially need 50 spaces starting in row 20. What is the best way to remove the unused or blank rows automatically. Can this be done with a formula based on cell value in column B if it is not empty?

 

[Jedi Master]

** I have solved this problem using the following Macro**

Sub HideRowsIfColumnBIsBlank()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range


Set ws = ThisWorkbook.Sheets("PROPOSAL High Level")


Set rng = ws.Range("B21:B70")


If IsEmpty(cell.Value) Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next cell
End Sub

 

[Peter_SSs]

** I have solved this problem using the following Macro**

That macro is incomplete. If you would like to post the complete macro** then it is fine to mark your post as the solution.

** When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details.