Microsoft Office Forums - View Single Post - [Solved] automating drag & drop

Thread: [Solved] automating drag & drop

View Single Post

Old

04-23-2016, 05:18 AM

jeffreybrown jeffreybrown is offline

jeffreybrown is offline

jeffreybrown uses Windows Vista

Windows Vista jeffreybrown uses Office 2007

jeffreybrown uses Office 2007

Office 2007

Expert

Join Date: Apr 2016

Posts: 673

jeffreybrown has a spectacular aura about

jeffreybrown has a spectacular aura about

Default

I'm guessing since you have two different formulas in the last two rows, you want both rows to go down one.

Try

Code:

Sub MoveDown()
    Dim LastRow As Long
    LastRow = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
    Sheets("Data").Range("B" & LastRow - 1).Resize(2, 5).Copy _
    Destination:=Sheets("Data").Range("B" & LastRow)
End Sub

Reply With Quote