copy range in another sheet and create border

Maybe ...

Sub Copy()
    With Sheets("Sheet1")
        .Range("A2", .Cells(.Rows.Count, "B").End(xlUp)).ClearContents
    End With

    Sheets("Sheet2").Range("C3").CurrentRegion.Copy
    Worksheets("sheet1").Range("A2").PasteSpecial Paste:=xlPasteValues
End Sub