Combine these codes to one

[prasadk]

Hi
Can anyone combine these two codes into one code in worksheet change event

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Columns("B")) Is Nothing Then
    Application.EnableEvents = False
    Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(2)).ClearContents
    With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .Cells(1, 1).Value = 1
      .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False
    End With
    Application.EnableEvents = True
  End If
End Sub

Sub serial()
Set rRng = Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row) Dim cntr As Integer: cntr = 1 For Each cell In rRng If cell.EntireRow.Hidden = False Then Cells(cell.Row, 1).Value = cntr cntr = cntr + 1 End If Next
End sub