HELP me please

[Annemus]

Hello
I'm making an assigment for class and got stuck with this..
I have to find the first empty cell in the row, and then copy a specific cell (which changes everyday) into that specific empty cell. My problem is to select the empty row, so I can copy paste the cell into the empty cell. But hwo, then the empty cell is one number??


I have written the following (the problem is coloured with red):


Sub Dagsdata()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Emptyrow = Lastrow + 1
MsgBox Emptyrow

Range("F4").Copy
Range(Emptyrow).Select
Selection.Paste

End Sub

Thanks!!!

 

[shg]

Welcome to the board.

You could replace

Range("F4").Copy
Range([COLOR=red]Emptyrow[/COLOR]).Select
Selection.Paste

with

Range("F4").Copy Cells(Emptyrow, "A")

 

[AlphaFrog]

Sub Dagsdata()
    
    Dim Emptyrow As Long
    
    Emptyrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    MsgBox Emptyrow
    
    Range("F4").Copy Destination:=Rows(Emptyrow)        [COLOR="Green"]'Paste in all cells in the next empty row[/COLOR]
   [COLOR="Green"] 'Range("F4").Copy Destination:=Range("A" & Emptyrow) 'Paste in only Column A in the next empty row[/COLOR]
    
End Sub

 

[Annemus]

Thank you so much!!
Now I can finish the first exercise in my paper..
Thank you.. I am so greatfull for your answers.