Inserting formula into dynamic column with dynamic rows

[Topher V]

I would like to insert a formula into the next empty column in a sheet and autofill down until Column A is blank. Thoughts?

 

[VoG]

What's the formula?

 

[Topher V]

=VLOOKUP(A2,Attempts!$A:$B,2,FALSE)

I should probably mention that I'm looking for VBA code to do this.

 

[VoG]

Try

Sub InsFmla()
Dim LR As Long, LC As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, LC + 1), Cells(LR, LC + 1)).Formula = "=VLOOKUP(A2,Attempts!$A:$B,2,FALSE)"
End Sub

 

[Topher V]

That works except it does not move to a different column once column B is used. Basically, every day I want the data to go into a new column. Is there a way to have the macro search for the next open column?

 

[VoG]

Do you have data in row 1. If not what is the first used row?

 

[Topher V]

The first row contains headers.

 

[VoG]

In that case maybe

Sub InsFmla()
Dim LR As Long, LC As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
LC = Cells(2, Columns.Count).End(xlToLeft).Column
Range(Cells(2, LC + 1), Cells(LR, LC + 1)).Formula = "=VLOOKUP(A2,Attempts!$A:$B,2,FALSE)"
End Sub