[belajar-excel] Over Flow - Run time Error -6-

[dwint ruswanto]

assalamu'alaikum,

para master yang saya hormati,

saya membuat event change terhadap suatu cell, pada saat *cell taget hanya 1
* tidak timbul masalah, tetapi saat saya menambah 1 cell target lagi maka
timbul Error,

berikut codingnya

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Row = 19 And Target.Column = 2 Then
            If Target.Value = "Hard Cover" Then
                Range("B22:B23").Value = "Ya"
                Else
                Range("B22:B23").Value = "Tidak"
            End If
        End If
    End If

    If Target.Cells.Count = 1 Then
        If Target.Row = 20 And Target.Column = 2 Then
            If Target.Value = "Ya" Then
                Range("B24").Value = "Ya"
                Else
                Range("B24").Value = "Tidak"
            End If
        End If
    End If
End Sub

di mana letak kesalahan yang harus saya perbaiki?

wassalam,

-dwint-