Insert data to last row of a range- VBA

dim the selected range as an array & write a for loop to find an empty row.

if you post your workbook, I will write you the code.

thank you for the help, here is my workbook file with sensitive data removed.

Thank you, I have posted a workbook sample!

Is this a possible start?

Cells(Selection.SpecialCells(2).Count + 1, 2).Offset(1).Select

Thank you! I'm pretty unfamiliar with coding VBA but every bit of information helps!

Give this a whirl...

Sub carlmon()
a = "your variable a"
b = "your variable b"
c_var = "your variable c"

For Each c In Range("b2:b14")
    If Len(c) = 0 Then
        c.Offset.Value = a
        Exit For
    End If
Next c

For Each c In Range("c2:c14")
    If Len(c) = 0 Then
        c.Offset.Value = b
        Exit For
    End If
Next c

For Each c In Range("d2:d14")
    If Len(c) = 0 Then
        c.Offset.Value = c_var
        Exit For
    End If
Next c

End Sub

if I helped you, please give me some flair

Thank you so much! Exactly what I was looking for, I appreciate it very much!

Originally Posted by vhoffman

Thank you so much! Exactly what I was looking for, I appreciate it very much!

Awesome, glad it worked! If you run into any problems, I'll help you out :D

Here I mistakenly thought that you would select a range as you mentioned in your first post.
If you want hard code the values. (unlikely)

Sub Maybe()
Dim varArr
varArr = Array("Hallo", "Bye", "Maybe")
    Cells(Range("B2:B14").SpecialCells(2).Count + 1, 2).Offset(1).Resize(, 3) = varArr
End Sub

If your values are below each other (here in G1 to G3)

Sub Maybe_1()
Dim varArr
varArr = Range("G1:G3").Value
    Cells(Range("B2:B14").SpecialCells(2).Count + 1, 2).Offset(1).Resize(, 3) = Application.Transpose(varArr)
End Sub

If your values are beside each other (here G1 to I1)

Sub Maybe_2()
Dim varArr
varArr = Range("G1:I1").Value
    Cells(Range("B2:B14").SpecialCells(2).Count + 1, 2).Offset(1).Resize(, 3) = Application.Transpose(Application.Transpose(varArr))
End Sub