VBA Go to next empty cell in row

[mribadeneira]

I am struggling to write the code to go to the next empty cell in a row. I have the code:

Sheets("Resultados").Select
Range("A3").Select
Range(Selection.End(xlToRight)).Select
ActiveCell.Offset(0, 1).Select
 ActiveCell.Value = BP1

however this is not working. My program loops several times each time adding a value to the end of the row.
Please help if you can

 

[ChrisM]

You can combine all that in to one command, try just:

Sheets("Resultados").Range("A3").End(xlToRight).Offset(0,1) = BP1

 

[mribadeneira]

Thanks ChrisM, but i am getting an Error: Application-definer or object-defined error.
And my problem also is that when cell B3 is empty when the program starts, the .End(xlToRight) command instead of going to B3 goes to the last column on Excel.

 

[ChrisM]

You can test for A3 being empty first:

If Sheets("Resultados").Range("A3") = "" Then
   Sheets("Resultados").Range("A3") = BP1
Else
   Sheets("Resultados").Range("A3").End(xlToRight).Offset(0,1) = BP1
End If

 

[mribadeneira]

Great, thanks!