Valid componet + Help with duplicates

[Boogerbut74]

most of my code works the only problem im having is after the for statement when it comes to Set colnum = Sheets("Deviation tracker").Columns.Count.End(xlToLeft).Offset + 1. I want to use this for statement to check if their is a depluicit in colum A for historian sheet from row 3 on dev tracker sheet. if their is a duplicate in the historian sheet delet that row if not use the code in the for statment to insert it in the spots needed
'
' Macro3_copystuffover Macro
'


Dim teamMember As Range
Dim autoRange As Range
Dim xPath As Range
Dim lastRow As Range
Dim colrng As Range
Dim t As Integer
Dim devTrack As ArrayList
Dim colnum As Integer

Set teamMember = ActiveWorkbook.Worksheets("").Range("F4")

Set xPath = ActiveWorkbook.Worksheets("QS Update Requirements").Range("F5")




Dim x As Workbook
Dim Y As Workbook

''## Open both workbooks first:
Set x = Workbooks.Open(xPath)
Set Y = Workbooks.Open("https://emergentbiosolutions-my.sharepoint.com/personal/boltonw_ebsi_com/Documents/Desktop/actively working on/New folder/EFV Quality Systems Tracker (test CCCOOOOPPYYYY).xlsm")
Windows( _
"Weekly Report).xlsm" _
).Activate
ActiveSheet.Range("$A$1:$L$43").AutoFilter Field:=11, Criteria1:= _
teamMember
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("EFV Tracker (test CCCOOOOPPYYYY).xlsm").Sheets("Historian ").Activate
Range("A1").Select
ActiveSheet.Paste

Application.CutCopyMode = False

'Close x:
x.Close

'Set devTrack = New ArrayList
'devTrack.Add Workbooks("EFV Quality Systems Tracker (test CCCOOOOPPYYYY).xlsm").Sheets("Historian deviation").Range("B2: B & Sheets("Deviation tracker").Columns.Count.End)


For i = 1 To 7


Range("A" & i).Select



Set colnum = Sheets("Deviation tracker").Columns.Count.End(xlToLeft).Offset + 1


Range("A" & i).Select
Selection.Copy
Sheets("Deviation tracker").Select

Range("columnrng" & 3).Select

ActiveSheet.Paste
Sheets("Historian deviation").Select
Range("B" + i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deviation tracker").Select
Range.Cells(4, columnrng).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Historian deviation").Select
Range("D" + i).Select
Selection.Copy
Sheets("Deviation tracker").Select
Range.Cells(5, columnrng).Select
ActiveSheet.Paste

Sheets("Historian deviation").Select
Range("K1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deviation tracker").Select
Range.Cells(6, columnrng).Select
ActveSheet.Paste


Sheets("Historian deviation").Select
Range("O1:O17").Select
Selection.Copy
Sheets("Deviation tracker").Select
Range.Cells(8, columnrng).Select
ActveSheet.Paste


Sheets("Historian deviation").Select
Range("O1:O17").Select


Next



End Sub
[/CODE]


Right now its saying i dont have a object for Set colnum = Sheets("Deviation tracker").Columns.Count.End(xlToLeft).Offset + 1