Find and Select first empty cell + add formula

[ncc84330]

Hi All,

I stucked, i would appreciate if you could help me:
Part 1 oke, but i do not know how to continue:

1. Find and Select the First Blank Cell in Column A ​

2. The cell what was found by the code, has to get a formula, always refer to the cell one above it
If this cell is A14 than =+A13
If this cell is A5 than =+A4
..and so on

Sub Macro1()
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next cell
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

If IsEmpty(cell) = True Then cell.Formula = "=r[-1]c": Exit For

 

[ncc84330]

You are amazing This is working great
Just one more thing, sorry my knowledge is less than basic.

I just would like to select and copy this cell value
and i think i cand handle the rest with macro record

 

[Fluff]

Ok, how about

If IsEmpty(cell) = True Then
   cell.Formula = "=r[-1]c"
   cell.Copy
   Exit For
End If

 

[ncc84330]

Ok, how about

If IsEmpty(cell) = True Then
   cell.Formula = "=r[-1]c"
   cell.Copy
   Exit For
End If

pretty close, but getting error message End without block if

Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Formula = "=r[-1]c"
cell.Copy
Exit For
End If
End Sub

 

[Fluff]

You have deleted this line Next cell you have also changed the code I posted. Hence the error.