Copy or fill?

[mrpoo]

Hi, something so simple but I can't find a solution:

The below copies textbox values to a sheet but how can I copy them (or fill) on multiple rows based on another textbox value?

lr = Range("E" & Rows.Count).End(xlUp).Row + 1
Cells(lr, "E") = txtWO
lr = Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(lr, "F") = txtBN
lr = Range("G" & Rows.Count).End(xlUp).Row + 1

Many thanks,
Graham

 

[Fluff]

How about like

Cells(LR, "E").Resize(TextBox1.Value) = txtWO

Change TextBox1 to the name of your textbox.

 

[mrpoo]

Works, thank you!

 

[Fluff]

You're welcome & thanks for the feedback.