Archive Macro That I can Assign to a button

[Malissa1578]

I am not very good with Macro and have been trying to use the record macro and then edit for a selectable range to create an archive button that I can then select my row.

What I want to do is hit an archive button that will archive a row that I select from the active sheet to my "archive" sheet in my workbook. Can someone help me create that generic macro?

 

[Alan_P]

Hi Malissa,

Something like this what your after?

Sub Archive()

Dim Rng As Range
Dim ArcStrt As Long
Dim ArcEnd As Long
Dim LastRw As Long

Set Rng = Application.InputBox("Please select a range to archive", "Archive", Type:=8)

ArcStrt = Rng.Row
ArcEnd = Rng.Row + Rng.Rows.Count - 1

LastRw = Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Row

Rows(ArcStrt & ":" & ArcEnd).Copy Sheets("Archive").Range("A" & LastRw + 1)

Rows(ArcStrt & ":" & ArcEnd).Delete

End Sub

Hope this helps,
Cheers,
Alan.

 

[Alan_P]

Dupe

 

[Malissa1578]

Alan,

Thank you so much for your help.
This is perfect.

 

[Alan_P]

You are very welcome Glad its working for you!