Sheets("Joint").Range("R" & CStr(Application.Rows.Count)).End(xlUp).Offset(1, -17).PasteSpecial Paste:=xlPasteFormats, Transpose:=False
You have nothing in Column "R", so it goes all the way back to the first row, and pastes the formats in A1:Q201
You only need to copy the range once, then Paste the values and then the formats.
Sheets("B_DTA").Range("A1:Q201").Copy '*************COPY DATA TO JOINT SHEET
'*********COPY VALUE IN JOINT SHEET*******
With Sheets("Joint").Range("A" & CStr(Application.Rows.Count)).End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValues, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, Transpose:=False
Application.CutCopyMode = False
End With
Bookmarks