Array to next empty cell

[Lee Rabbit]

Hi Guys/Gals,

Can you tell me the most efficient way to complete this task.

I have a user form with 2 text fields and I want to populate the next empty cell in a defined range (A1:A100)

As I populate the database I need the textbox 1 input into A1 cell and textbox 2 into B1 cell of a sheet named TEMPLATE

As I add new data, I want the next empty cells below to populate with the new data.

I am pretty competent with my understanding of arrays but this is giving me a bit of a headache as I am struggling with dynamic population

Thank you in advance, much appreciated.

Regards, Lee

 

[cooper645]

I added 2 textboxes (1 & 2) to a sheet and a command button, then assigned this code to command button click

I'm sure you can amend it to suit your needs, if not, let me know what needs amending

Private Sub CommandButton1_Click()
Dim LRow As Long

LRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

Cells(LRow, 1) = TextBox1
Cells(LRow, 2) = TextBox2

TextBox1 = ""
TextBox2 = ""

End Sub