Select and copy a cell to another sheet is not working, need advice-CodePudding

This code is supposed to check if conditions in two certain columns are met and if they are it supposed to take a value from another sheet and paste it into the end of the row of the checked row to the source sheet. For testing purpose, I try to at least keep it at a specific range now. I think I know where I'm wrong, the cell. Value most likely and that the range is probably not working as I have imagined it in my mind. Also, it is probably not even looping through the columns. I have like 30 different cell possibilities to copy from for different conditions and I suppose I can adjust them each depending on the conditions, but need to make this first attempt to work, then it will be pancake day, or not..

Sub Update()
Dim Column As Range
Sheets("Q485").Select
Set Column = Range.Select("AV:AW")
    If Column("AW") Is cell.Value("P") And Column("AV") Is cell.Value("V") Then
      Sheets("Support").Select
      Range("C9").Select
      Selection.Copy
      Sheets("Q485").Select
      Range("AY6358").Select
      Selection.Paste
'    Else 
'    Other conditions will be written below
    end if

End Sub

Testing, testing, testing, but would like some suggestions from experts

CodePudding user response：

Sub MyMacroc ()
    Dim rng as range
    set rng = sheets("Source").range("A2:A7")

    For Each cel In rng.Cells
        with cel
            'condition -1 '
            if .offset(0,1)="P" and .Offset(0,2)="V" then
                .offset(0,3) = Sheets("Extract").range("B2")
            ElseIF
                'your second conition 
            end if
        end with
    next

End sub