VBA to get last row and column, then copy and paste

[rydo22]

Hello,

As

 

[rydo22]

Somehow I posted before asking my question: so here it is. As you can see by the title, I am trying to find the last row and column used, select a specific range, then copy and paste to the next available column but I am getting a host of errors. Below is my code, if you could help that would be great!

Sub newEntry()


Dim lastCol As Integer
Dim startCol As Integer
Dim newStartCol As Integer
Dim lastRow As Integer
Dim cRng As Range
Dim pRng As Range
Dim sht As Worksheet



Set sht = ThisWorkbook.Worksheets("2015")


lastCol = sht.Cells(2, sht.Columns.Count).End(x1ToLeft).Column



startCol = lastCol - 56
newStartCol = lastCol + 1


lastRow = .Cells(sht.Rows.Count, 3).End(x1Up).Row




MsgBox lastCol
MsgBox lastRow


Set cRng = sht.Range(Cells(1, startCol), Cells(lastRow, lastCol)).Select
cRng.Copy


Set pRng = sht.Cells(1, newStartCol).Select


pRng.PasteSpecial (xlPasteFormulas)
pRng.PasteSpecial (xlPasteFormats)


End Sub

 

[Sektor]

last_cell = Columns("A:A").Find("*", SearchDirection:=xlPrevious)
last_cell.Copy
Sheets("SOME_SHEET_NAME").Range("A1").PasteSpecial