Copiar datos de una hoja a otra dependiendo de otra celda

[mrocf]

Hola! Silvanha.
Me parece que será más sencillo aplicando un Autofiltro, por ejemplo así:

Código PHP:

  Sub copia_primer_sem_New()
Dim rng As Range

ActiveSheet.AutoFilterMode = False
Set rng = [b15:c15]
If [b16] <> "" Then Set rng = Range("B15:C" & [b15].End(xlDown).Row)
    
With rng
.Offset(-1).Resize(1 + .Rows.Count).AutoFilter 1, 1
.Columns(2).Copy
Sheets("1ER SEM(MAT) -").[b17].PasteSpecial Paste:=xlPasteValues
    
.Offset(-1).Resize(1 + .Rows.Count).AutoFilter 1, 2
.Columns(2).Copy
Sheets("1ER SEM(VES) -").[b17].PasteSpecial Paste:=xlPasteValues
End With

ActiveSheet.AutoFilterMode = False
End Sub  
   

¿Te puede servir?
Saludos, Cacho.