VBA Code For Data Merging from blank cells

Public Sub ProcessData()
Dim Lastrow As Long
Dim Markrow As Long
Dim i As Long, j As Long


    Application.ScreenUpdating = False
    
    With ActiveSheet
    
        Lastrow = .UsedRange.Rows.Count
        For i = Lastrow To 2 Step -1
        
            If .Cells(i, "A").Value2 = "" Then
            
                For j = 1 To 5
                
                    If .Cells(i, j).Value2 <> "" Then
                    
                        If .Cells(i - 1, j).Value2 <> "" Then .Cells(i - 1, j).Value2 = .Cells(i - 1, j).Value2 & "/"
                    
                        .Cells(i - 1, j).Value2 = .Cells(i - 1, j).Value2 & .Cells(i, j).Value2
                    End If
                Next j
                
                .Rows(i).Delete
            End If
        Next i
    End With
    
    Application.ScreenUpdating = True
End Sub