Move Cursor To One Cell Below Last Row With Data

Ever want to paste some data into new empty cell after the last cell with data in certain column? Then take a look at this simple macro.

    'first, select cell in the first row of that column, like A1, K1, etc
    Range("A1").Select

    'move to the last cell with data
    Selection.End(xlDown).Select

    'move to one row below it
    ActiveCell.Offset(1, 0).Select

    'paste the copied data in there
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Simple isn’t it? Simple code, but will help us a lot each time we wanna move the active cell into one cell below the last cell contained any kind of data, in the same column.

One requirement needed to use this simple excel vba macro, first we need to select the first cell in the same column where we wanna do the selection.

This entry was posted in Excel VBA Function and tagged , , , , , , , , , , , . Bookmark the permalink.

19 Responses to Move Cursor To One Cell Below Last Row With Data

  1. pvk says:

    Hi,

    I am a beginner using VBA. Can someone help me with the code that will bring my cursor back to cell A30 when I click a button that I’ve inserted at around cell P,30. I have inserted the button but can’t get it to work using some hints i found online. thanks

    PK

  2. Bob says:

    PK try this.
    =====================
    Sub moveA30()
    Range(“a30″).Activate
    End Sub
    =====================
    I presume you know how to assign the macro to the button object?

  3. Richard Pontefract says:

    Hello,

    I’m trying to run a macro that will cut and paste data from one cell to another in the same row and want to be able to utlize that same macro on any row I choose. What does the formula look like when I don’t want a specific column/row reference.

    Thx
    rgp

  4. Poer says:

    Halo Richard,

    To cut and paste data from one cell to another cell in the same row, we can use something like this:

    Sub Macro1()
    
       Application.CutCopyMode = False
    
       ActiveCell.Select
       Selection.Cut
    
       ActiveCell.Offset(0, 5).Select
       ActiveSheet.Paste
    
    End Sub
    

    change 5 into the distance of destination column from the source column.

  5. rick says:

    Hi,
    How can I move cursor to the right cell (months)in the following example?

    Months are listed in colomns c2 to n2 (january to december)
    In cell a3 I input March
    In cell b3 I put 200

    How can I copy automatically the 200 in cell e3 (march) ?

    Thanks

    Rick

  6. Pingback: buy antique pinball machine

  7. Pingback: Scholarships for Single Mothers

  8. Pingback: Tummy Tuck Before And After

  9. Pingback: Red Bottom High Heels

  10. Pingback: dakota ugg moccasins womens

  11. Pingback: debt consolidation companies

  12. Pingback: how reverse mortgage works

  13. Pingback: how to pay off credit card debt

  14. Pingback: debt consolidation companies

  15. Pingback: best debt consolidation company

  16. Pingback: reverse mortgage problems

  17. Pingback: watch the superbowl online 2012

  18. Pingback: empresa seo

  19. Pingback: How to watch the SuperBowl Online

Leave a Reply

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>