How to populate line to the last empty one.

[gergo1001]

Hi,

I put trough this programme to copy information form B10:W10 and populate that into the next empty line. I just don't know how to write that down to make it work. Can you please help me with that? Thanks

Sub PopulateLine()
'
' PopulateLine Macro
'


'
Range("B10:W10").Select
Selection.Copy
Range("B15:W15").Select
ActiveSheet.Paste
Range("B15").Select
Application.CutCopyMode = False
End Sub

 

[James006]

Hi,

Not sure to fully understand your objective ...

You can test this macro :

Sub PopulateLine()
Dim i As Integer
For i = 15 To 20
  Range("B" & i & ":W" & i).Value = Range("B10:W10").Value
Next i
End Sub

Hope this will help

 

[My Aswer Is This]

Se if this is what you want:

Sub Copy_Range()
'Modified 11/26/2018 7:58:56 AM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1
Range("B10:W10").Copy Cells(Lastrow, 2)
Application.ScreenUpdating = True
End Sub

 

[gergo1001]

So basically, I added a row where the user can fill out cells, than press the macro button which populate the info in the accurate cells in the following blank row. I try out these two. Thank you very much

 

[James006]

Glad you could fix your problem ...

 

[My Aswer Is This]

Glad we were able to help you.
Come back here to Mr. Excel next time you need additional assistance.

So basically, I added a row where the user can fill out cells, than press the macro button which populate the info in the accurate cells in the following blank row. I try out these two. Thank you very much

 

[gergo1001]

Hi, Great Its working!

Thank you very much