EXCEL 異なるVBA

質問

教えて下さい、EXECL以下の異なるVBA (A>,B>)が２つあります、同じシートでそれぞれ動くようにさせたいです1つに合わせる事は出来ないでしょうか? 当方初心者の為わかりません教えて下さい。
A> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0, xlA1, 0) <> "A1" Then Exit Sub
With Range("F9:I9,K17:K36").Borders(xlDiagonalUp)
If Left$(Target.Value, 1) = "S" Then
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Else
.LineStyle = xlNone
End If
End With

End Sub

B> Private Sub Worksheet_Change(ByVal Target As Range)
With Sheet2
Select Case Target.Address
Case Is = "$D$1"
.Range("A1").Insert Shift:=xlDown
.Range("A1").Value = Target.Value
Case Is = "$D$2"
.Range("B1").Insert Shift:=xlDown
.Range("B1").Value = Target.Value
End Select
End With
End Sub

回答No.1

marbin

>If Target.Address(0, 0, xlA1, 0) <> "A1" Then Exit Sub

この部分がヒントになると思います。

補足

すみません、どうしたら良いのか全然わかりません、上記のVBAも全て教えていただいたものです再度教えてください宜しくお願いします