consolidate data from multiple excelsheets and append the same to main sheet.

tridi94 

Please use this code:

Sub Test()

    Dim lrow As Long
    Dim sht As Worksheet

    'define last row
    lrow = Sheets("Import").Cells(Rows.Count, 1).End(xlUp).Row
        
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Import" Then
            'Move the data from cells (Copy and Paste)....
            sht.Range("A2:D2").Copy Sheets("Import").Range("A" & lrow + 1)
            lrow = lrow + 1 'increment last row by one....
        End If
    Next

End Sub