Mistake in VBA code

Hi there,


the following code ought to be used to get data from an excel file to update data in my master file.

Unfortunately the process just stops, excel closes itself and tries to repair the file and the input file is opened.

I have no idea why it doesnt go through ... any help is greatly appreciated.


I am using Office 365 latest version on Windows 10. Speed and space on my laptop shouldnt be the issue at all 64 GB RAM for example.


Sub Input_Values

Dim iwb As Workbook, iws As Worksheet, ws As Worksheet


Application.ScreenUpdating = False


b = GetFileThisWorkbook.Path

If b = "" Then

MsgBox "Select proper File", vbCritical

Exit Sub

Else

file_path = b

End If



col_st = InputBox"Please write the first paste column number"

col_st = CLngcol_st



Set iwb = Workbooks.Openfile_path



Set iws = iwb.Sheets1

Set ws = ThisWorkbook.ActiveSheet



ilRow = iws.Cellsiws.Rows.Count, 1.EndxlUp.Row

ilCol = iws.Cells1, iws.Columns.Count.EndxlToLeft.Column



lRow = ws.Cellsiws.Rows.Count, 1.EndxlUp.Row

lCol = ws.Cellsiws.Rows.Count, 1.EndxlUp.Row





For i = 1 To ilRow

fo = 0

For j = 4 To lRow

If iws.Cellsi, 1.Value = ws.Cellsj, 1.Value Then

iws.Rangeiws.Cellsi, 2, iws.Cellsi, ilCol.Copy ws.Cellsj, col_st

Application.CutCopyMode = False

fo = 1

End If

Next j

If fo = 0 Then

iws.Cellsi, 1.Copy ws.CellslRow + 1, 1

iws.Rangeiws.Cellsi, 2, iws.Cellsi, ilCol.Copy ws.CellslRow + 1, col_st

lRow = lRow + 1

End If

Next i



iwb.Close





Set iwb = Nothing



End Sub





Function GetFilestrPath As String As String



Dim fldr As FileDialog

Dim sItem As String

Set fldr = Application.FileDialogmsoFileDialogFilePicker

With fldr

.Title = "Select a File"

.AllowMultiSelect = False

.InitialFileName = strPath

.Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1

If .Show <> -1 Then GoTo NextCode

sItem = .SelectedItems1

End With

NextCode:

GetFile = sItem

Set fldr = Nothing



End Function



Thank you!