VBA help for in my project after copy data formating

        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