insert copied calls which are merged











up vote
-1
down vote

favorite












I am trying to insert copied cells based off of the active cell. The active cell is 2 rows merged and is 16 columns across.



So far I have been able to find the below code from a post by Siddharth. 



Sub CopyConcatenate()

Dim ws As Worksheet

Dim rng As Range



'~~> Set this to the relevant worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")



With ws

    '~~> Set your range

    Set rng = .Rows(ActiveCell.Row)



    '~~> Copy the range

    rng.Copy



    '~~> Insert the range

    rng.Offset(1).Insert Shift:=xlDown



    '~~> Clear the clipboard. More importantly remove the

    '~~> ant like borders

    Application.CutCopyMode = False

End With

End Sub


Please could someone assist it is driving me crazy






excel vba







share|improve this question







New contributor




Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
























    up vote
    -1
    down vote

    favorite












    I am trying to insert copied cells based off of the active cell. The active cell is 2 rows merged and is 16 columns across.



    So far I have been able to find the below code from a post by Siddharth. 



    Sub CopyConcatenate()
    
Dim ws As Worksheet
    
Dim rng As Range
    

    
'~~> Set this to the relevant worksheet
    
Set ws = ThisWorkbook.Sheets("Sheet1")
    

    
With ws
    
    '~~> Set your range
    
    Set rng = .Rows(ActiveCell.Row)
    

    
    '~~> Copy the range
    
    rng.Copy
    

    
    '~~> Insert the range
    
    rng.Offset(1).Insert Shift:=xlDown
    

    
    '~~> Clear the clipboard. More importantly remove the
    
    '~~> ant like borders
    
    Application.CutCopyMode = False
    
End With
    
End Sub


    Please could someone assist it is driving me crazy






    excel vba







    share|improve this question







    New contributor




    Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.






















      up vote
      -1
      down vote

      favorite









      up vote
      -1
      down vote

      favorite











      I am trying to insert copied cells based off of the active cell. The active cell is 2 rows merged and is 16 columns across.



      So far I have been able to find the below code from a post by Siddharth. 



      Sub CopyConcatenate()
      
Dim ws As Worksheet
      
Dim rng As Range
      

      
'~~> Set this to the relevant worksheet
      
Set ws = ThisWorkbook.Sheets("Sheet1")
      

      
With ws
      
    '~~> Set your range
      
    Set rng = .Rows(ActiveCell.Row)
      

      
    '~~> Copy the range
      
    rng.Copy
      

      
    '~~> Insert the range
      
    rng.Offset(1).Insert Shift:=xlDown
      

      
    '~~> Clear the clipboard. More importantly remove the
      
    '~~> ant like borders
      
    Application.CutCopyMode = False
      
End With
      
End Sub


      Please could someone assist it is driving me crazy






      excel vba







      share|improve this question







      New contributor




      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      I am trying to insert copied cells based off of the active cell. The active cell is 2 rows merged and is 16 columns across.



      So far I have been able to find the below code from a post by Siddharth. 



      Sub CopyConcatenate()
      
Dim ws As Worksheet
      
Dim rng As Range
      

      
'~~> Set this to the relevant worksheet
      
Set ws = ThisWorkbook.Sheets("Sheet1")
      

      
With ws
      
    '~~> Set your range
      
    Set rng = .Rows(ActiveCell.Row)
      

      
    '~~> Copy the range
      
    rng.Copy
      

      
    '~~> Insert the range
      
    rng.Offset(1).Insert Shift:=xlDown
      

      
    '~~> Clear the clipboard. More importantly remove the
      
    '~~> ant like borders
      
    Application.CutCopyMode = False
      
End With
      
End Sub


      Please could someone assist it is driving me crazy






      excel vba




      excel vba






      share|improve this question







      New contributor




      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question







      New contributor




      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question






      New contributor




      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked yesterday









      Ellaw

      1




      1




      New contributor




      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      Ellaw is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





























          active

          oldest

          votes











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });






          Ellaw is a new contributor. Be nice, and check out our Code of Conduct.










           

          draft saved


          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53371729%2finsert-copied-calls-which-are-merged%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown






























          active

          oldest

          votes













          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes








          Ellaw is a new contributor. Be nice, and check out our Code of Conduct.










           

          draft saved


          draft discarded


















          Ellaw is a new contributor. Be nice, and check out our Code of Conduct.













          Ellaw is a new contributor. Be nice, and check out our Code of Conduct.












          Ellaw is a new contributor. Be nice, and check out our Code of Conduct.















           


          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53371729%2finsert-copied-calls-which-are-merged%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          -

          Popular posts from this blog

          Cypress Hill

          Image
          Dieser Artikel behandelt die Musikgruppe. Zum Musikalbum siehe Cypress Hill (Album). Cypress Hill Sen Dog, Bobo und B-Real Allgemeine Informationen Genre(s) Hip-Hop, Crossover, Reggae Gründung 1988 Website www.cypresshill.com Aktuelle Besetzung Rap B-Real Rap Sen Dog DJ DJ Muggs Percussion Eric Bobo (seit 1994) Cypress Hill ist eine US-amerikanische Hip-Hop-Gruppe aus Los Angeles. Sie verkauften über 18 Millionen Alben weltweit. [1] Die Gruppe besteht aus DJ Muggs , den Rappern B-Real und Sen Dog sowie seit 1994 Percussionist Bobo , der vorher im Umkreis der Beastie Boys tätig gewesen war. Sie wurden international vor allem auch wegen ihres Engagements für die Legalisierung des Cannabiskonsums bekannt. Der Name „Cypress Hill“ (Deutsch: Zypressenhügel) bezieht sich auf den Wohnort der Gründungsmitglieder, da fast alle in der Cypress Avenue in South Gate aufwuchsen. Bis auf DJ Muggs sind alle Mitglieder Hispanics. ...
          Read more

          what are some tips for doing well in the interview? [on hold]

          Image
          .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty{ margin-bottom:0; } up vote -4 down vote favorite I completed my bachelor degree of software engineer now i want to do a government job in Pakistan regarding computer software because i know very well about software and i know how to make software but i am little bit fear full regarding job interview and i am very confused and also frightened when i think about the interview. please help me about my interview and tell me what type of question were asked for the job of software engineers and tell me some tips that i can doing well in the interview. interviewing new-job software degree share | improve this question ...
          Read more

          How does a super-power salesman not get shut down for legal reasons?

          Image
          up vote 6 down vote favorite 2 I am in trouble: my boss, a multi-millionaire, has just come up with a scheme, but it has problems and he wants me to solve them. The whole thing started when he saw this picture: This gave him an idea: invent, develop, and sell "superpowers". These "powers" would not be biological (he's rich, but not that rich), but technological. Basically, he wants to have Small Hero Five-and-a-half (tm) working for him, constantly cranking out new tech. After he has his team invent the tech (with possible help from Anderson Robotics), he would start to mass-produce it (think: bat-mobile factory), and sell the gadgets (why sell the rights, when there is still more money to be made?) to would-be super-heroes. This is where the problems start: the reason no-one has done this yet, is ...
          Read more