N/A blank cells in Sheet where data is last entered

[quadaxel]

Hi,

I have a workbook, consisting for 5 sheets (110, 220, 100, 200, 400). I have created a code to compile information automatically into the respective sheet according to their category. For instance, I have this information for sheet 110 and I run the code to compile the information into that particular sheet. This information goes into row 18. Next, I need to N/A all the blank cells in that row in sheet 110. Following that, I have another set of information to be entered into sheet 110, into the next row, which is sheet 19. After that, N/A all blank cells before moving on to key in information into the next row.

What code should I write for to get my N/A included in next row, in that particular sheet?

Sub FillEmptyCells()
'Forces each cell to show N/A if Empty
On Error Resume Next
Dim lastrow As Long
Range("A18").CurrentRegion.SpecialCells(xlBlanks).Value = "N/A"
End Sub

This is my current code for N/A. But this code affect my previous rows (ie, my headers got N/A as well). Can I have some help here too?

Thank you.

 

[Fluff]

How about

With ActiveSheet
   On Error Resume Next
   Intersect(.UsedRange, .Rows("18:19")).SpecialCells(xlBlanks).Value = "N/A"
   On Error GoTo 0
End With

 

[quadaxel]

Thank you for your help!

Is there another way to N/A cells in the next row, without specifying which row #? First, I will fill information into row 18. Then, N/A any cells that are not filled. Next, I will fill information into row 19. Then N/A any cells that are not filled. These two steps will be repeated, when necessary.

I also have another issue, why is it that my headers get N/A as well? Could it be due to the spaces in between?

I've attached a screenshot excel sheet for clearer information.

 

[Fluff]

why is it that my headers get N/A as well?

Probably because you are using merged cells, which are an abomination & should be avoided like the plague.