Help me edit my macro to copy cell range!

[gcr114]

Hello everyone!

So what I need my macro to do is search through a sheet, find a value, and copy cells in Column A and Column C and paste them into a new sheet. This code works fine except for the copy part. I can make it copy the whole row but not the invidividual Cells in A or C. Any help is appreciated!

Public Sub Copy()
 
Sheets("Sheet1").Select
 
FinalRow = Range("A10").End(xlUp).Row
 
For x = 2 To FinalRow
 
ThisValue = Range("C" & x).Value
 
If ThisValue = "AA" Then
 
Range("A" & x).Copy 
Sheets("Sheet2").Select
NextRow = Range("A10").End(xlUp).Row + 1
Range("A" & NextRow).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ElseIf ThisValue = "B" Then
 
Range("A" & x & ":AG" & x).Copy 
Sheets("Sheet2").Select
NextRow = Range("A10").End(xlUp).Row + 1
Range("A" & NextRow).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
 
 
End If
Next x
End Sub

 

[VoG]

Try like this

Union(Range("A" & x), Range("C" & x)).Copy

 

[gcr114]

Try like this

Union(Range("A" & x), Range("C" & x)).Copy

This worked! Thank you very much!

Just one more question, is there a way to code is so that the information from Column C on Sheet1 goes into Column A on Sheet2 and the info from Column A on Sheet1 goes into Column B on Sheet2?

 

[VoG]

Only by copying and pasting them separately, i.e. several lines of code.