Results 1 to 3 of 3

Vba - paste in first empty column cell

This is a discussion on Vba - paste in first empty column cell within the Excel Questions forums, part of the Question Forums category; Hi there. I need the code to paste my selection in worksheet SORT, into the first available cell in column ...

  1. #1
    New Member
    Join Date
    Dec 2011
    Posts
    44

    Default Vba - paste in first empty column cell

    Hi there.

    I need the code to paste my selection in worksheet SORT, into the first available cell in column A. Intention is not to overwrite existing values in column A.

    Thanks!


    '
    Sheets("tis").Select
    Range("AC2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("SORT").Select
    'I need the code to paste my selection in the first available empty cell in column A, so I don't overwrite any existing values in column A


    End Sub

  2. #2
    VoG
    VoG is online now
    MrExcel MVP
    Moderator
    VoG's Avatar
    Join Date
    Jun 2002
    Location
    127.0.0.1
    Posts
    63,501

    Default Re: Vba - paste in first empty column cell

    Try

    Code:
    Sheets("tis").Select
    Range("AC2").Select
    Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("SORT").Range("A" & Rows.Count).End(xlUp).Offset(1)
    HTH, Peter
    Please test any code on a copy of your workbook.

  3. #3
    New Member
    Join Date
    Dec 2011
    Posts
    44

    Default Re: Vba - paste in first empty column cell

    Thank you! This works!

    Quote Originally Posted by VoG View Post
    Try

    Code:
    Sheets("tis").Select
    Range("AC2").Select
    Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("SORT").Range("A" & Rows.Count).End(xlUp).Offset(1)

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DMCA.com