Find last row and insert data

[db2020]

Hi,

I want to insert text (e.g. "Text2") below the last cell with text in column A, and the number of rows in which I have to insert this text should be equal to the rows in column B.

See example below, in the 3 empty cells of column A I want to insert the text "Text2":

A B
Text Data
Text Data
Text Data
Text Data
Text Data
...... Data
...... Data
...... Data

How do I do this?

 

[Joe4]

Where exactly is the text that you want to input come from?

 

[db2020]

It's not in the file so that has to be added to the macro

 

[Joe4]

Is it hard-coded (the same thing every time)?
Or do you want the VBA code to prompt the user for the text at run-time?

 

[db2020]

It's hard coded, thanks for the help so far

 

[Joe4]

OK, try something like this:

Sub MyFill()

    Dim tx As String
    Dim lrB As Long
    Dim frA As Long
    
'   Enter hard-coded text
    tx = "Some text here"
    
'   Find last row in column B with data
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Find first row in column A needing data
    frA = Cells(Rows.Count, "A").End(xlUp).Row + 1
    
'   Fill blank columns in column A
    If lrB > frA Then Range(Cells(frA, "A"), Cells(lrB, "A")).Value = tx
        
End Sub