两组代码怎么写在一起？

notkonw

本人学VBA刚起步。上回有位好心的仁兄，帮忙写组代码：Private Sub Worksheet_Change(ByVal Target As Range)    With Target
        If .Column = 8 And .Row > 1 Then
            If Len(Target) > 0 Then
                .Offset(0, 2).Value = Format(Date, "m月20日") & "到货" & Val(.Offset(0, 0).Value) - Val(.Offset(0, -1).Value) + Val(.Offset(0, -2).Value) & .Offset(0, -5).Value
             Else
                .Offset(0, 2).Value = ""
         End If
      End If
   End With
End Sub

我按着他写的代码改动一下：
With Target
       If .Column = 6 And .Row > 1 Then
            If Len(Target) > 0 Then
                .Offset(0, 1).Value = (Val(.Offset(0, 0).Value)) + Val(.Offset(0, 1).Value)
                   End If
                End If
            End With



现在问题是这组代码（红底）该怎样合在一起。
我曾尝试过加进去，但不知道为什么没有效。
两组代码我都要用，问题就是两组代码能不能合在一起？
本人菜鸟一个，见笑了。

DevilW

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Row = 1 Or Len(Target) = 0 Then Exit Sub
        If .Column = 8 Then
            .Offset(0, 2) = Format(Date, "m月20日") & "到货" & Val(Target) - Val(.Offset(0, -1)) + Val(.Offset(0, -2)) & .Offset(0, -5)
        Else
            .Offset(0, 2) = ""
        End If
        If .Column = 6 Then .Offset(0, 1) = Val(Target) + Val(.Offset(0, 1))
    End With
End Sub

notkonw

DevilW 发表于 2018-8-2 21:48
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Row = 1 Or Len(Tar ...

好的，非常感谢，
这种问题对于你们来说并不难，我就知道会有人帮忙，非常感谢