By not stating what you want initially & finally adding a workbook that represents your code you are making our task of providing a solution much more difficult. If you don't ask your question in a concise way with the correct requirements you will find that you won't get answers!
Option Explicit
Sub Copy()
With Sheets("Sheet1")
.Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp)).ClearContents
With Sheets("Sheet2")
.Range(.Cells(3, 3), .Cells(.Rows.Count, 4).End(xlUp)).Copy _
Sheet1.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
'resize the range to Iclude Column C & apply the Border Style
.Range(.Cells(2, 1), .Cells(Rows.Count, 2).End(xlUp)).Resize(, 3).Style = "Borders"
End With
End Sub
Bookmarks