True or False outcome to result in a certain cell.

[Millsio88]

I'm trying to get a tick box via symbols in a certain cell based off the input sheet which has check boxes.

The outcome is displayed in "T1" as True or False based on the check box being selected and what I'd like on another sheet depending on the output, is to add ü = True or û = False to a certain cell that is formatted to have tick or cross based on symbols. This will also need to be on every new row which is why iRow has been included.

Can anyone help with my code?


Sub CopySource()
Dim wsData As Worksheet
Dim iRow As Long
Set wsData = Sheets("Input")
Set wsT = Sheets("Tracker")

If Worksheets("Tracker").FilterMode = True Then
Worksheets("Tracker").ShowAllData
End If

'Tracker
With Worksheets("Tracker")
iRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
wsData.Range("C6").Copy
.Range("B" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("C7").Copy
.Range("C" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("C8").Copy
.Range("D" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("C10").Copy
.Range("E" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("C11").Copy
.Range("F" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("F6").Copy
.Range("G" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
wsData.Range("F7").Copy
.Range("H" & iRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

If wsData.Range("T1") = "TRUE" Then
.Range ("J" & iRow)
ü = True
û = False
End If