NEED HELP WITH EXCEL 2013 VBA!!

Question

Hi:

I'm a database developer who knows Access VBA.  Excel VBA, very little.

This is what I need to do:

1) On a worksheet, go to last row - 1 (second to last row)  [blanks have already been deleted]

2) COPY

3) CUT

4) INSERT CUT ROW into Row 12

Probably very simple but all this positional stuff is a mystery to me.

Thanks!

---

A. Wolf

Answer 1

Like this:

Sub CutNInsert()
    Dim cel As Range
    ' Find cell in the last used row
    Set cel = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    ' Cut the row above it
    cel.Offset(-1).EntireRow.Cut
    ' Insert in row 12
    Range("A12").Insert
End Sub

---

Regards, Hans Vogelaar (http://www.eileenslounge.com)

Answer 2

Thanks Hans!

This solution worked great.

---

A. Wolf