Conditional Copy/Paste Dynamic Range

Hi, I'm new to VBA, so any help would be appreciated. I'm trying to move values from 2 separate workbooks--'CT' to 'FAWB'--given certain conditions. When i run the macro below, Excel doesn't prompt an error message, but there are no values moving from one workbook to the next, so I'm not sure what the issue is.

Here are the events that need to take place:
If:
condition 1: Value in column H of CT.SPview= 'FA'
condition 2: Value in column B of CT.SPview doesn't appear in column B of FAWB.IRSheet.
Then:
copy paste values where conditions 1 and 2 are met into next available row of FAWB.IRSheet.

Below is the code that was used.

Sub Main()

'declaring workbook/worksheet variables.
Dim IRSheet As Worksheet
Dim SPview As Worksheet
Set FAWB = Workbooks.Open("C:\Users\dyoo\Desktop\Assignment Tool 1-2-15\FA_IRWB.xlsm")
Set CT = Workbooks.Open("C:\Users\dyoo\Desktop\Assignment Tool 1-2-15\CopyCentralTracking_11-19.xlsm")


Set IRSheet = FAWB.Worksheets("IRSheet")
Set SPview = CT.Worksheets("Supervisor View")

'declaring row/cell variables
Dim CTrng As Range
Dim IRrng As Range

Dim CTCell As Range
Dim IRCell

Set IRrng = IRSheet.Range("A1").CurrentRegion.Select

Set CTrng = SPview.Range("A1").CurrentRegion.Select

Set CTCell = CTrng.Cells
Set IRCell = IRrng.Cells

For Each CTCell In CTrng
If Range("H").Value = "FA" And Cells(CTCell, 2).Values <> Cells(IRCell, 2).Values Then
CTCell.EntireRow.Copy Destination:=Workbooks("FAWB").Sheets("IRSheet").Range("A65536").End(xlUp).Offset(1, 0).Select
    End If
Next CTCell
End Sub

Thanks in advance for the help and patience!

Hi,
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Hi, I made the requested changes. If any one out there has tips/nudges in the right direction, it would be super helpful and very much appreciated. Thanks again for the help.