How to allow information to be pasted on the next empty cell

[whcmelvin]

I am trying to print information on the next empty cell

This is my code

Dim r1 As Range
Dim n1 As Long
Dim NextRow1 As Long       
Application.ScreenUpdating = False

Sheets("Sheet1").Select

NextRow1 = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Set r1 = Range(Cells(2, 1), Cells(NextRow1, 1))
    
    For n1 = 2 To r1.Rows.Count
            If Cells(n1, 12).Value = "" Then
                Cells(n1, 12).Value = "Hi"
            End If
    Next n1

However at Cells(n1,1) there is there are other things printed there.

Below is an image of my excel. i want the code above to print on L2, L3 and so on when there is an empty cell and regardless whether A1, A2 and so on is empty or filled.

 

[wigi]

Cells(Rows.Count, 12).End(xlUp).Offset(1).Value = "..."

 

[whcmelvin]

Hi, thanks for helping but that code you suggest will paste till L5 once i activate it

 

[whcmelvin]

but i want it to print on a cell.

 

[whcmelvin]

Hi I am in help badly to solve this. Please help. the code that wigi gave give me this result when i clicked it once.

i want it to print on one cell onli when i click it one time

 

[VoG]

All you need is the code that wigi gave you, and get rid of your loop.