I wanted to show you this macro that I used and it worked fine until I installed office 2010. First on the pc there was office 2016 installed. I also posted the code, the macro copies a sheet from an excel file and pastes it into another file excel and appends the copy to a sheet.
I can't understand why it doesn't work anymore. If anybody please have any ideas and want to help me.
Greetings and thanks
Sub AccodaFogliKitamura() Dim wbk1 As Workbook Dim wbk2 As Workbook Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Dim lriga, lriga2 As Long Dim rng1, rng2 As Range Application.ScreenUpdating = False Set wbk1 = Workbooks.Open("C:\Users\fabri\Documents\BBG\BBG-PROGRAMMAZIONE-LAVORO.xlsm") Set Sheet1 = wbk1.Sheets("Kitamura") With Sheet1 lriga = .Range("A" & .Rows.Count).End(xlUp).Row End With Set wbk2 = Workbooks.Open("C:\Users\fabri\Documents\BBG\CERCA-DATA-LEVIEN-EURO.xlsm") Set Sheet2 = wbk2.Sheets("FogliAccodati") With Sheet2 lriga2 = .Range("A" & .Rows.Count).End(xlUp).Row End With Sheet1.Range("A2 : K" & lriga).Copy _ Destination:=Sheet2.Range("A" & lriga2) Application.ScreenUpdating = True End Sub