s_woodbury
New Member
- Joined
- Feb 26, 2014
- Messages
- 27
I'm using a macro to copy the entire column A in Sheet 2 and pasting it in COlumn A on Sheet 3. The two issues I'm having are:
1. Copy: I only want to copy down the column until there is a blank cell (each row will have a value in column A until the end of the data is reached). Right now my code is copying the entire column
2. The paste location on Sheet 3 is not static. I need to determine where the data in column A stops so I can select the next cell and paste the data. I'm trying to use Pate Special because when I paste I want the value, not the formula but I get a error when I run the macro.
Here's the code I'm using now:
Sheets("Sheet2").Select
Range("A1").Select
Application.CutCopyMode = False
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Please help
1. Copy: I only want to copy down the column until there is a blank cell (each row will have a value in column A until the end of the data is reached). Right now my code is copying the entire column
2. The paste location on Sheet 3 is not static. I need to determine where the data in column A stops so I can select the next cell and paste the data. I'm trying to use Pate Special because when I paste I want the value, not the formula but I get a error when I run the macro.
Here's the code I'm using now:
Sheets("Sheet2").Select
Range("A1").Select
Application.CutCopyMode = False
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Please help