I have this huge date of Activity of various process which looks like this.

[![enter image description here](https://i.stack.imgur.com/I1SwR.png)](https://i.stack.imgur.com/I1SwR.png)

I need output like this.
 [![enter image description here](https://i.stack.imgur.com/XQlJ4.png)](https://i.stack.imgur.com/XQlJ4.png)

and i try to use this bellow Macro.

```
Sub lrow()
 Dim lcol As Long, rw As Long, j As Long, rc As Range
 j = 1
      For rw = 2 to Cells(Rows.Count, "A").End(xlUp).Row
      For lcol = 2 to Cells(rw, Columns.Count).End(xlToLeft).Column
        set rc = Cells(rw, lcol)
          If IsDate(rc.Value) Then
           With Sheet2
             Range(j, 2) = rc.Value
             j = j + 1
           End With
          End If
      Next lcol
      Next rw
  End Sub

```

I need help on this Code pls. thanks in advance