title: Excel VBA Loop Through Column and Save Result
body: <p>This is a little challenging to me</p>
  
  <p>I have the following code which works just like I wanted. But I need the code to loop through Sheet1 Column A and copy and paste the value to Sheet2(R1) Then loop through Sheet1 column B and copy each value paste it to Sheet2(I7) then save the worksheet as a new PDF document </p>
  
  <p>See Picture for example excel sheet 
  <a href="https://i.stack.imgur.com/jl3ni.png" rel="nofollow noreferrer">example</a></p>
  
  <pre><code>Sub Macro2()
  '
  ' Macro2 Macro
  '
  
  '
      Sheets("Sheet1").Select
      Range("A2").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("R1").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      With Selection.Font
          .Name = "Calibri"
          .Size = 20
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ThemeColor = xlThemeColorLight1
          .TintAndShade = 0
          .ThemeFont = xlThemeFontMinor
      End With
      Sheets("Sheet1").Select
      Range("B2").Select
      Selection.Copy
      Sheets("Sheet2").Select
      Range("I7").Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
      With Selection.Font
          .Name = "Calibri"
          .Size = 16
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ThemeColor = xlThemeColorLight1
          .TintAndShade = 0
          .ThemeFont = xlThemeFontMinor
          Dim i As Integer
      For i = 1 To 2
      Next i
  ThisWorkbook.Sheets("Sheet2").Select
  ActiveSheet.ExportAsFixedFormat _
          Type:=xlTypePDF, _
          Filename:=ThisWorkbook.Path &amp; "\" &amp; CStr(i) &amp; ".pdf", _
          Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, _
          IgnorePrintAreas:=True, _
          OpenAfterPublish:=False
      End With
  End Sub
  </code></pre>