I have a repetitive code that skips every 20 lines and starts on C21 and goes goes to C2921. I'm sure there is a way to shorten this code, I just do not know how.

I appreciate the help.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Row Mod 22 = 0 Then
        If Target.Value <> "" Then
            Select Case Target.Value
                Case "Blank Sheet": Msgbox_Blank_Sheet
                Case "Place Concrete": Msgbox_Concrete
                Case "Asphalt": Msgbox_Asphalt
                Case "Silicone Joints": Msgbox_Silicone_Joints
                Case "Compression Seal": Msgbox_Compression_Seal
                Case "CTB": Msgbox_CTB
                Case "CTS": Msgbox_CTS
                Case "Aggregate Base": Msgbox_Aggregate_Base

            End Select
        End If
    End If
End If
    
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Row Mod 42 = 0 Then
        If Target.Value <> "" Then
            Select Case Target.Value
                Case "Blank Sheet": Msgbox_Blank_Sheet
                Case "Place Concrete": Msgbox_Concrete
                Case "Asphalt": Msgbox_Asphalt
                Case "Silicone Joints": Msgbox_Silicone_Joints
                Case "Compression Seal": Msgbox_Compression_Seal
                Case "CTB": Msgbox_CTB
                Case "CTS": Msgbox_CTS
                Case "Aggregate Base": Msgbox_Aggregate_Base

            End Select
        End If
    End If
End If

If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Row Mod 62 = 0 Then
        If Target.Value <> "" Then
            Select Case Target.Value
                Case "Blank Sheet": Msgbox_Blank_Sheet
                Case "Place Concrete": Msgbox_Concrete
                Case "Asphalt": Msgbox_Asphalt
                Case "Silicone Joints": Msgbox_Silicone_Joints
                Case "Compression Seal": Msgbox_Compression_Seal
                Case "CTB": Msgbox_CTB
                Case "CTS": Msgbox_CTS
                Case "Aggregate Base": Msgbox_Aggregate_Base

and so on..............
and so on..............