title: How to copy paste data based on row value with conditions
body: <p>I currently have a data set that looks like the following:</p>
  
  <pre><code>         A     B     C     D     E     F     G 
       1   x     x     x     x     x     x     *
       2   a     a     a     a     a     a     
       3   c     c     c     c     c     c     %
  </code></pre>
  
  <p>I need code to copy paste rows at the bottom of the data set based on if there's text in <code>column</code>. I would then need the text in <code>column G</code> to appear in <code>column F</code> while everything else in the row stays the same. For example, the result would be:</p>
  
  <pre><code>        A     B     C     D     E     F     G
      1   x     x     x     x     x     x     *
      2   a     a     a     a     a     a     
      3   c     c     c     c     c     c     %
      4   x     x     x     x     x     *
      5   c     c     c     c     c     %
  </code></pre>
  
  <p>My code currently looks like this:</p>
  
  <pre><code>Public Sub CopyRows()
       Sheets("Exposure Distribution").Select
       ' Find the last row of data
       FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
       ' Loop through each row
       For x = 2 To FinalRow
          ' Decide if to copy based on column H
          ThisValue = Cells(x, 8).Value
          If Application.WorksheetFunction.IsText(ThisValue) = "True" Then
              Cells(x, 1).Resize(1, 33).Copy
              Sheets("Exposure Distribution").Select
              NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
              Cells(NextRow, 1).Select
              ActiveSheet.Paste
              Sheets("Exposure Distribution").Select
          End If
          ThisValue = Cells(x, 9).Value
          If Application.WorksheetFunction.IsText(ThisValue) = "True" Then
              Cells(x, 1).Resize(1, 33).Copy
              Sheets("Exposure Distribution").Select
              NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
              Cells(NextRow, 1).Select
              ActiveSheet.Paste
              Sheets("Exposure Distribution").Select
          End If
         ThisValue = Cells(x, 10).Value
          If Application.WorksheetFunction.IsText(ThisValue) = "True" Then
              Cells(x, 1).Resize(1, 33).Copy
              Sheets("Exposure Distribution").Select
              NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
              Cells(NextRow, 1).Select
              ActiveSheet.Paste
              Sheets("Exposure Distribution").Select
          End If
       Next x
  End Sub
  
  
  However I don't know how to accomplish the final part of what I'm looking for, which is moving data from column G to column F based on if there's text in `column G`.
  
  </code></pre>