With wsRank
LastRow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
LastCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
wsNewP.Range("F1").Resize(LastRow, 4).Value = .Range(.Cells(1, LastCol - 3), .Cells(LastRow, LastCol)).Value
'resize F1 to extend it by "LastRow" rows and 4 columns (LastCol - 3, LastCol - 2, LastCol - 1, LastCol)
wsNewP.Range("J1").Resize(LastRow, 1).Value = .Range(.Cells(1, LastCol - 4), .Cells(LastRow, LastCol - 4)).Value
'resize J1 to extend it by "LastRow" rows and 1 column (LastCol - 4)
End With