求助有缘大师修改按钮代码

插入语句正确，复制内容格式没有，请大师修改。


Private Sub CommandButton1_Click()
' 插入新行
Sheets("期数表").Activate
    Dim Rng As Range
    For Each Rng In ActiveSheet.Range("A:A")
        If Rng = "胆码" Then
            Sheets("期数表").Rows(Rng.Row).Insert
' 复制整行格式与内容
WS.Rows(selectedRow).Copy
WS.Rows(selectedRow + 1).PasteSpecial Paste:=xlPasteAll

     Dim i, j, arr
    Dim s() As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://data.17500.cn/kl8_asc.txt", False
        .Send
        s = Split(VBA.StrConv(.responseBody, vbUnicode, &H804), Chr(10))
    End With
    Exit For
        End If
    Next
   
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i&
    Sheets("期数表").Activate
    Dim Rng As Range
    For Each Rng In ActiveSheet.Range("A:A")
        If Rng = "胆码" Then
            i = Rng.Row
            Exit For
        End If
    Next
    Set Rng = Application.Intersect(Target, Range(Cells(i, "M"), Cells(i + 3, "BG")))
    If Not Rng Is Not