Copy/Paste in next open row

[Foxy Lady]

Hi there, I wonder if any one can assist.

I need to created a botton to copy and paste a certain range to next availible row on that sheet.

Also I need a message box to appear asking to enter criteria and that criteria should be entered into a specific cell (etc A32). This cell also falls under the copy range and will need to be adjust when it is copied again. This is the first cell in the copy range.

I hope you can help

Regards

 

[jbeaucaire]

Some ideas to get you started:

Sub Copytest()
Dim NR As Long, MyStr As String
NR = Range("A" & Rows.Count).End(xlUp).Row + 1   'change row used if A is unreliable for finding last row

MyStr = Application.InputBox("Enter Criteria", "Info needed")
Range("A32") = MyStr

Range("A32:K32").Copy
Range("A" & NR).PasteSpecial xlPasteValues    'or xlPasteAll

End Sub

These methods would work in a commandbutton as well.