Sub selfilecopypaste()
Dim filetoopen As Variant
Dim openfile As Workbook
Dim count As Integer
Dim i As Integer
i = 5
For count = 1 To 3
    filetoopen = Application.GetOpenFilename(Title:="browse your file & import range", Filefilter:="excel files (*.xlsx*,*xlsx*")
    If filetoopen <> False Then
    Set openfile = Application.Workbooks.Open(filetoopen)
        openfile.Sheets("low").Range("b2").Copy
        ThisWorkbook.Worksheets("sheet1").Cells(i, 5).PasteSpecial xlPasteValues
        openfile.Sheets("mid1").Range("i2:l2").Copy
        ThisWorkbook.Worksheets("sheet1").Range("di").PasteSpecial xlPasteValues
    openfile.Close False
End If
count = count + 1
i = i + 1
Next
End Sub
'I started learning VBA a week ago for my project and I'm stuck here. Please help. 'Workbooks have similar format. I want the data to be one below the other starting from row i =5.
 
    