Copy and Paste - Use next line from same source

[emz07]

hello everyone,

Fairly new to VBA. I'm only using simple macros.

Just wanting some help with a VBA.

I want to copy and paste items from the same cell which I change, into the next line after.

Here's what I use so far. But I don't know how to loop it so it does the next line down. I hope that makes sense.

I want it, so that when I put a new set of information, it moves down a row because previous row has information in it already.

Sub RectangleRoundedCorners1_Click()
Range("J2", "J3").ClearContents
Range("J12", "J13").ClearContents
Range("J10").ClearContents
Range("J1").ClearContents
Range("J1").Value = ("No")
Range("J19").ClearContents
Range("J26").ClearContents
End

 

[GWteB]

Hi emz07, welcome to Mr. Excel!

Expect you're after something similar to this:

Sub RectangleRoundedCorners1_Click()
    Dim rng As Range
    Set rng = Range("V" & Cells(Rows.Count, "V").End(xlUp).Row)
    rng.Offset(1, 0) = [J2]
    rng.Offset(1, 1) = [J3]
    [J1] = ("No")
    [J2,J3,J10,J12,J13,J19,J26].ClearContents
End Sub

 

[emz07]

thank you so much this is great! It is exactly as i wanted.
I hope to really get better at writing my own.
I didn’t know I could simplify clearcontents like that

all the best
Emz07

 

[GWteB]

You are welcome and thanks for letting me know.