Copy and Paste Macro

[Attycuz]

Womdering if you can help me, Macros are not my strongest haha.
This is what I currently have...
function PP() {
var spreadsheet = SpreadsheetApp.getActive();
spreadsheet.getRange('A2:D2').activate();
var currentCell = spreadsheet.getCurrentCell();
spreadsheet.getSelection().getNextDataRange(SpreadsheetApp.Direction.DOWN).activate();
currentCell.activateAsCurrentCell();
spreadsheet.setActiveSheet(spreadsheet.getSheetByName('All'), true);
spreadsheet.getRange('A2').activate();
spreadsheet.getCurrentCell().getNextDataCell(SpreadsheetApp.Direction.DOWN).activate();
spreadsheet.getRange('A12').activate();
spreadsheet.getRange('Project!A2:D10').copyTo(spreadsheet.getActiveRange(), SpreadsheetApp.CopyPasteType.PASTE_NORMAL, false);
spreadsheet.getRange('E2').activate();
currentCell = spreadsheet.getCurrentCell();
spreadsheet.getSelection().getNextDataRange(SpreadsheetApp.Direction.DOWN).activate();
currentCell.activateAsCurrentCell();
currentCell = spreadsheet.getCurrentCell();
spreadsheet.getSelection().getNextDataRange(SpreadsheetApp.Direction.DOWN).activate();
currentCell.activateAsCurrentCell();
spreadsheet.getRange('E2').copyTo(spreadsheet.getActiveRange(), SpreadsheetApp.CopyPasteType.PASTE_NORMAL, false);
spreadsheet.getRange('A1').activate();
spreadsheet.getActiveSheet().getFilter().sort(1, false);
};

I have 2 tabs 'Project' and 'All", what I want to do is 1 - Select everything in 'Project' tab (Less the headers) (Columns A-D, Rows Unknown) 2 - Copy 3 - Paste at the bottom of 'All' 4 - Copy Formula in Column E in 'All' to the new additions
Please let me know if you can help
Thanks Mark

 

[Marc L]

​

As here it's only an Excel forum section …​

 

[jolivanes]

For code tags, see picture.

Try

Sub Maybe()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("Project")
Set sh2 = Worksheets("All")
    sh1.Range("A1:D" & sh1.Cells(Rows.Count, 1).End(xlUp).Row).Offset(1).Copy sh2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    sh2.Cells(Rows.Count, 5).End(xlUp).Resize(sh2.Cells(Rows.Count, 4).End(xlUp).Row - sh2.Cells(Rows.Count, 5).End(xlUp).Row + 1).FillDown
End Sub

 

[jolivanes]

or

Sub Maybe_2()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim lr1 As Long, lr2 As Long
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
lr1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
    sh1.Range("A2:D" & lr1).Copy sh2.Range("A" & lr2 + 1)
    sh2.Range("E" & lr2 & ":E" & lr1 + lr2 - 1).FillDown
End Sub