Msgbox to input to last row problem with hidden rows

Hi, everyone. I too wanted to use Msgbox to input to last row. I have an Add new account button executing the macro below, with intentions putting input in A14 and below.
Columns:
Account Make pmt Bill type Pmt Interval

Type & Pmt Interval are date validation lists containing options from rows 4 to 13. So rows 4 to 13 are hidden with "starting" row at 14. If I use the macro as is, it sends input to A4 only, even if I populate a4..a13 with filler. If those rows are unhidden and populated, the input goes to A14.

How can I use this macro or modify it to populate cells after the hidden rows above it? The code follows:

Public Sub AddAcct()



Dim X As String
Dim Message As String

Message = "Enter the Account Name you want to add:"

TitleBarTxt = "Add New Account"

DefaultTxt = " "

X = InputBox(Message, TitleBarTxt, DefaultTxt)
If X <> "" Then
With Worksheets("Accounts")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) = X
End With
End If
End Sub

Thanks in advance

You'll need a method for finding the lastrow that does not use .End(xlUp) method if you want to work even on hidden rows.

Public Sub AddAcct()
Dim X As String, Message As String, NextRow As Long

Message = "Enter the Account Name you want to add:"
TitleBarTxt = "Add New Account"
DefaultTxt = " "
NextRow = Cells.Find("*", Cells(Rows.Count, Columns.Count), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

X = Application.InputBox(Message, TitleBarTxt, DefaultTxt, Type:=2)

If X <> "" And X <> "False" Then
    Worksheets("Accounts").Range("A" & NextRow) = X
End If

End Sub

So many things... heh.

Stop merging rows/cells unnecessarily. It will continuously create problems for you. If you want a taller row, increase the height of the one row. If you want a centered footer at the bottom of your sheet, put it into your PAGE SETUP > Header/Footer setups.

The hidden rows at the top of the page are nonsensical to me. These "lists" should be on another sheet (called LISTS maybe?) where you can edit them at will and then use them as real Data Validation lists with named ranges.

Anyway, I left those hidden rows in for now and made sure the macro I gave you will start at row 13 if there is no other data, but I removed the merged stuff so it would not interfere with the macro "sensing" where the bottom row of data really is.

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.