Excel VBA copying rows of data

Hey,

Would appreciate if anyone can help me with the following.

I have created a dummy worksheet to give some guidance. I want to copy the data from the Market data tab into the template data tab, but only the rows that meet the condition in Column C to be Albania. Also I then don't want to copy over the complete row, but only everything under Address 1 and to the right of it. Any help again would be massively appreciated.

Thanks in advance!

Thank you so much rollis13, this has worked perfectly. Appreciate the help!

Of course no worries!

I do have a follow up question if that is okay. How do I go about changing the code so that the data copied over is copied starting from a specific cell and not just the first unused row in the sheet. Say I wanted to data to copy into the Template Data sheet but only starting from A20 on the sheet, how do I do that.

Thanks in advance.

Thank you again for this rollis13. Could you help on a couple more problems I have if possible please. I've attached the excel sheet and copied the code again here.

1) How would I copy over the rows of data from market data to template data and ensure the formatting is kept the same? (compact rows where everything fits and is adjusted)

2) If market data and template data were in two separate workbooks, how would I change the code to open up market data workbook copy over the rows of data and then close the market data workbook?

3) How can I copy the rows but run a formula on cells T4 to Y4 in market data so the the currency is converted to EUR (divide all these cells by FX value in Column E) and then copied over to template data? Unfortunately, I can't run this conversion first as the data is going to be used in this format and so the conversion will have to be done throughout the macro process.

Option Explicit
Sub Filter_Copy_Paste()
    Dim lr1    As Long
    Dim lr2    As Long
    With Sheets("Market Data")
        lr1 = .Cells(Rows.Count, 1).End(xlUp).Row 'last used row in sheet Market Data
        .AutoFilterMode = False
        .Range("A3:Y" & lr1).AutoFilter Field:=3, Criteria1:="ALBANIA" 'filter range on ALBANIA
        lr2 = Sheets("Template Data").Cells(Rows.Count, 1).End(xlUp).Row + 1 'first unused row in sheet Template Data
        .Range("E4:Y" & lr1).SpecialCells(xlCellTypeVisible).Copy Sheets("Template Data").Range("A & lr2") 'Copy/Paste
        .AutoFilterMode = False
    End With
    Application.CutCopyMode = False
End Sub

Any help is massively appreciated, thank you in advance!