Moving to next row

[AlexL2]

I am trying to write a macro that will move to the next row and first cell after it copies the information, and then have this happen everytime the macro is run.

If you could help me out I would greatly appreciate it.

 

[VoG]

Something like this?

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Rows(LR).Copy
Rows(LR + 1).Insert
Application.CutCopyMode = False
End Sub

 

[AlexL2]

Thanks for the help, but it's not doing exactly what i need. I just need it to move the cursour to the next row so it will copy the designated row.

If it helps this is the macro I have so far...

Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=9
Range("B35:I35").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Rows(LR).Copy
Rows(LR + 1).Insert
Application.CutCopyMode = False

End Sub

 

[VoG]

All that selecting isn't necessary. What are you actually trying to do?

 

[AlexL2]

ADVERTISEMENT

I am essentially making a submit button, so a person can complete various options in a form and when they have completed it they hit this button. This would then copy the information (so it is permanent and will not change when the form is changed) to a separate worksheet in the correct column labels.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
When it copies I would like the cursor to move to the next row so it can then copy the information for the next submitter. <o></o>

 

[VoG]

Try

ActiveCell.Offset(1).Select

 

[AlexL2]

ADVERTISEMENT

That worked, but I then need it to paste into the next row, it is still pasting it into cell A4.

 

[VoG]

Instead of

Sheets("Sheet4").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Sheet4").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

 

[AlexL2]

Fantastic! Works great!

If I could ask you one more thing I would really appreciate it. I have a spinner form that I would like to get to automatically increase by one everytime the button is hit. Is this possible?

Thank you very much!

 

[VoG]

Where is this spin button - on a userform?