title: VBA Copy Paste Values From Separate Ranges And Paste On Same Sheet, Same Row Offset Columns (Repeat For Multiple Sheets)
body: <p>I was going to make a Case statement but I don't think that makes much sense in this situation, I'm a VBA n00b, since this workbook will remain quite static I don't mind taking the non-optimal approach and record a macro of me copying and pasting but I thought I'd ask here before I land on that.</p>
  
  <p>I have 6 worksheets in 1 workbook.</p>
  
  <p>Sheet1: Copy BA17:BI31, Copy BA48:BI50, Copy BA67:BI81, Copy BA98:BI100, Copy BA117:BI131, Copy BA148:BI150, Copy BA167:BI181, Copy BA198:BI200, Copy BA215:BI215, Copy BA230:BI230, Copy BA246:BI260, Copy BA275:BI277</p>
  
  <p>And paste the above copies into the identical rows, however in columns AE:AM of the same sheet (simply offset).</p>
  
  <p>If someone can steer me in the right direction for this I could repeat that solution for the other 5 sheets where I have to do the same idea but for different row and columns.</p>
  
  <p>Any help would be appreciated, thanks!</p>
  
  <pre><code>Sub CopyPasteOffetColumns()
  
  Range("BA17:BI31").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE17").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA48:BI50").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE48").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA67:BI81").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE67").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA98:BI100").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE98").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA117:BI131").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE117").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA148:BI150").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE148").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA167:BI181").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE167").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA198:BI200").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE198").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA215:BI215").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE215").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA230:BI230").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE230").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA246:BI260").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE246").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Range("BA275:BI277").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("AE275").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  End Sub
  </code></pre>