part of macro works on wrong file - Why?

[masben]

Hi,

The code below is from a macro that collect data from a master file to a forecast file. At the end I have a bit of code (placed within *********) that adds a formula to certain cells. The problem is that the part of code works on the master file instead of the forecast file. I tought adding the wsMaster.select code would make the trick but it doesn't. Do you know how to fix this? Many thanks in advance.

All the best,
Martin

Option Explicit

Sub ImportForecast()
Dim wbSRC As Workbook, wsMASTER As Worksheet
Dim fPATHNAME As String, MyFilter As String, lr As Long
Dim kr As Long          
Dim rcell As Range      
Application.ScreenUpdating = False
ActiveSheet.Unprotect


fPATHNAME = "N:\ForecastInput_NEW.xls"
Set wsMASTER = ThisWorkbook.Sheets("ForecastInput")        'edit this sheetname as needed
MyFilter = wsMASTER.Range("A1").Value              'criteria to gather from the source file

wsMASTER.UsedRange.Offset(16).Clear                  'clears prior entries, resets the Master sheet

On Error Resume Next
Set wbSRC = Workbooks.Open(fPATHNAME)
If wbSRC Is Nothing Then
    MsgBox "The Source.xls file could not be found"
    Exit Sub
End If

With wbSRC.Sheets("Sheet1")                     'edit the sheetname as needed where the data resides
    .AutoFilterMode = False                     'remove any prior filters
    .Rows(6).AutoFilter                         'add a new filter
    .Rows(6).AutoFilter 2, MyFilter             'apply the 'nordic' filter test to column A
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    If lr > 6 Then                              'if rows found, copy them all to the MASTER
        '.Range("A7:A" & LR).EntireRow.Copy wsMASTER.Range("A17")
        .Range("A7:AN" & lr).Copy               'copy the data in A:Z
        wsMASTER.Range("A17").PasteSpecial xlPasteValues    'paste the values only in the MASTER

        
    End If
End With

'Sum forecast and actual in forecast file
'****************************************************
'dim kr and din rcell added above
wsMASTER.Select
kr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("AP17:AQ" & kr)
    
        Cells(4, rcell.Column).Copy                             ' AP4 and AQ4 contains a sum formula and are copied to all cells in range AP17:AQ"kr"
        rcell.PasteSpecial xlPasteFormulas
    
Next rcell
'******************************************************

wbSRC.Close False                               'close the source file, no changes saved
Application.ScreenUpdating = True
End Sub