Dim rng         As Excel.Range
    Dim rngIsect    As Excel.Range
    Dim i           As Long
    
    Set rng = Range("A1:F32")
    rng.AutoFilter Field:=1, Criteria1:="Albert"
    
    Set rngIsect = Intersect(rng.Offset(1, 0), rng, rng.SpecialCells(xlCellTypeVisible))
    
    If Not rngIsect Is Nothing Then
        For i = 1 To rngIsect.Areas.Count
            rngIsect.Areas(i).Columns(5).Value = rngIsect.Areas(i).Columns(3).Value
        Next
    End If