Is that what you want ..?
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim x As Variant
Dim i As Long
Dim c As Long
Dim l As Long
Set ws = Sheets("Summary_Info")
Set sh = Sheets("Maint_Info")
Application.ScreenUpdating = False
For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
c = 1: l = 1
If Not IsError(Application.Match(CStr(ws.Cells(i, 1)), sh.Columns(8), 0)) Then
x = Application.Match(CStr(ws.Cells(i, 1)), sh.Columns(8), 0)
Do
c = c + 1
l = l + 1
ws.Cells(i, c).Value = sh.Cells(x + c - 2, 20).Value
Loop Until sh.Cells(x + l - 1, 8).Value <> "" Or x + l - 1 = sh.Cells(Rows.Count, 20).End(xlUp).Row + 1
End If
Next i
Application.ScreenUpdating = True
MsgBox "Done...", 64
End Sub
Bookmarks