Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
Greetings, I have a VBA where I'm trying to insert text into blank cells. On worksheet "Deficiencies" I have seven groups of ranges that I collected from VBA advance filter. I tried using the VBA: I will have six other macros like the one below, each with it's own message. I thought I could add "+1" after
then it became difficult trying to guess where the text will land. I thought one possibility is the word "NAME" is in Column A and above the word "Name" is a blank row which is where I need my statement inserted. This statement will merge Columns A through I with text wrap. I'm hoping this will work for after each macro by default it will go to the next blank cell above the word "NAME".
Excel Formula:
Range("A1:A121").Cells.SpecialCells(xlCellTypeBlanks).Row
VBA Code:
Sub Over_sixty_days_Notes()
Dim FirstBlankRow As Long
FirstBlankRow = Range("A1:A121").Cells.SpecialCells(xlCellTypeBlanks).Row
Cells(FirstBlankRow, "A") = "Travelers cannot remain in the system for over 60 Days."
End Sub