Need macro: Go to last row of data

[beginner-excel]

Hi everyone,

Newbie here and I searched for an answer on this forum but maybe I don't have the correct syntax.

I need a macro to go to the last row of data and insert data "123" in the row after the last row (the column will be Column A).

The only problem is, there are blank cells between some rows. I need to go to the absolute last row of data.

Help!

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LR + 1).Value = 123
End Sub

 

[Jonmo1]

Welcome to the board..

Try

Cells(Rows.Count,"A").End(xlup).Offset(1,0).Value = "123"

Hope this helps.

 

[beginner-excel]

Perfect! Is there a way to format 123 to be Arial 10pt, etc?

Thank you so much!

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LR + 1).Value = 123
End Sub

 

[VoG]

Like this

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("A" & LR + 1)
    .Value = 123
    With .Font
        .Name = "Arial"
        .Size = 10
        .ColorIndex = 3
    End With
End With
End Sub

Hint: You can use the macro recorder to get the syntax for formatting and so on

 

[Justin.B]

If using as part of a form for VBA try this code out.

Nextrow = Worksheets("Worksheet to put data to").Range("A65536").End(xlUp).Row + 1
Worksheets("Worksheet to put data to").Cells(Nextrow, 1).Resize(1, 7).Value = Array( _
value 1, _
value 2 )

 

[beginner-excel]

Thank you so much! =)

Like this

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("A" & LR + 1)
    .Value = 123
    With .Font
        .Name = "Arial"
        .Size = 10
        .ColorIndex = 3
    End With
End With
End Sub

Hint: You can use the macro recorder to get the syntax for formatting and so on

 

[beginner-excel]

Thank you too! =)

If using as part of a form for VBA try this code out.

Nextrow = Worksheets("Worksheet to put data to").Range("A65536").End(xlUp).Row + 1
Worksheets("Worksheet to put data to").Cells(Nextrow, 1).Resize(1, 7).Value = Array( _
value 1, _
value 2 )