加速宏代码所需的协助

Question

需要帮助优化以下代码块，以将选择范围从一张纸复制并粘贴到另一张纸。 我有3-4个街区，与下面的街区相似。如果somone可以提供以下代码的优化版本会很有帮助

注意：我是编码初学者

Sheets("Company Profile").Select
    Range("D15").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets(client_name).Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("D2").Select

获得预期结果，但需要加快速度