RCONDADO
New Member
- Joined
- Nov 4, 2014
- Messages
- 13
- Office Version
- 365
- Platform
- Windows
Dear all,
I'm creating a macro to compile some information into a spreadsheet, and inside it, I'm using the following code:
" Sheets("Controle").Select
Sheets("Controle_Draft").Visible = True
Range(Selection, Selection.End(xlToRight)).Select
Sheets("Controle_Draft").Select
Range("A2:L9").Select
Selection.Copy
Sheets("Controle").Select
Range("A1").Select
Selection.End(xlDown).Select
Sheets("Controle").Rows("2:2").Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Controle_Draft").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Controle").Select
Range("A1").Select
Selection.End(xlDown).Select "
After that, I entered the code to paste the information. The main idea is that it finds the last filled row, and pastes the information from the source sheet, but it's overwriting the last record and doesn't do anything after row 8.
Please could you help me?
Thank you in advance.
I'm creating a macro to compile some information into a spreadsheet, and inside it, I'm using the following code:
" Sheets("Controle").Select
Sheets("Controle_Draft").Visible = True
Range(Selection, Selection.End(xlToRight)).Select
Sheets("Controle_Draft").Select
Range("A2:L9").Select
Selection.Copy
Sheets("Controle").Select
Range("A1").Select
Selection.End(xlDown).Select
Sheets("Controle").Rows("2:2").Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Controle_Draft").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Controle").Select
Range("A1").Select
Selection.End(xlDown).Select "
After that, I entered the code to paste the information. The main idea is that it finds the last filled row, and pastes the information from the source sheet, but it's overwriting the last record and doesn't do anything after row 8.
Please could you help me?
Thank you in advance.