Insert 10 columns staring at K50?
Results 1 to 6 of 6

Thread: Insert 10 columns staring at K50?

  1. #1
    Board Regular
    Join Date
    Jun 2013
    Posts
    93
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Insert 10 columns staring at K50?

    Hi,
    Can you please tell me the macro used to add 10 columns at K starting at row 50?

    Basically, I want to move all data from k50 and below, over 10 columns to the right, without moving the data above k50.

    Thanks!

  2. #2
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    26,729
    Post Thanks / Like
    Mentioned
    458 Post(s)
    Tagged
    45 Thread(s)

    Default Re: Insert 10 columns staring at K50?

    How about
    Code:
    Sub Bret1()
       Range("K50", Range("K" & Rows.Count).End(xlUp)).Resize(, 10).Insert xlToRight
    End Sub
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

  3. #3
    Board Regular
    Join Date
    Jun 2013
    Posts
    93
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Insert 10 columns staring at K50?

    Thanks!

  4. #4
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    26,729
    Post Thanks / Like
    Mentioned
    458 Post(s)
    Tagged
    45 Thread(s)

    Default Re: Insert 10 columns staring at K50?

    You're welcome
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

  5. #5
    Board Regular
    Join Date
    Jun 2013
    Posts
    93
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Insert 10 columns staring at K50?

    Can you also tell me how to change the line below to only select below row 50 on column AG?
    Set sourceColumn = Columns("AG:AG")

  6. #6
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    26,729
    Post Thanks / Like
    Mentioned
    458 Post(s)
    Tagged
    45 Thread(s)

    Default Re: Insert 10 columns staring at K50?

    Like
    Code:
    Set Source= Range("AG50", Range("AG" & Rows.Count).End(xlUp))
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

Some videos you may like

User Tag List

Tags for this Thread

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
  •