VBA Selecionar Linha e Expandir

Programação
,
#1

Prezados, bom dia!

Preciso de uma macro em Excel que se a coluna B ter mais informações que a C, ele continue a descer a fórmula em C, mas se a coluna B ter menos informações que a C, ele apague as linhas a maior em C.

Isso é, preciso que tenha alinhamento de linhas em B e C.

Não consigo inserir anexo por ser novo, mas segue abaixo exemplo

Plan1, preciso que C, seja continuado até o limite de B

ID Data Validação
1 01/03/2020 Passado
2 30/03/2020 Presente
3 01/04/2020 Futuro
4 02/04/2020 Futuro
5 03/04/2020 Futuro
6 04/04/2020 Futuro
7 05/04/2020 Futuro
8 06/04/2020 Futuro
9 07/04/2020 Futuro
10 08/04/2020 Futuro
11 09/04/2020 Futuro
12 10/04/2020 Futuro
13 11/04/2020 Futuro
14 12/04/2020 Futuro
15 13/04/2020 Futuro
16 30/03/2020 Presente
17 31/03/2020 Futuro
18 01/04/2020 Futuro
19 02/04/2020
20 03/04/2020
21 04/04/2020

Plan2, preciso que C, seja apagado até o limite de B.

ID Data Validação
1 01/03/2020 Passado
2 30/03/2020 Presente
3 01/04/2020 Futuro
4 02/04/2020 Futuro
5 03/04/2020 Futuro
6 04/04/2020 Futuro
7 05/04/2020 Futuro
8 06/04/2020 Futuro
9 07/04/2020 Futuro
10 08/04/2020 Futuro
11 09/04/2020 Futuro
12 10/04/2020 Futuro
13 11/04/2020 Futuro
14 12/04/2020 Futuro
15 13/04/2020 Futuro
16 30/03/2020 Presente
17 31/03/2020 Futuro
18 01/04/2020 Futuro
19 02/04/2020 Futuro
20 03/04/2020 Futuro
21 04/04/2020 Futuro
Passado
Passado
Passado
Passado
#2

Já descobri como.

Sub CorrigeLinha()

countG = Cells(Rows.Count, 7).End(xlUp).Row + 1
countH = Cells(Rows.Count, 8).End(xlUp).Row + 1

Range("g" & countG).Select

If (Range("H" & countG) <> "") Then
     With Worksheets("Plan")
       .Range(.Cells(countG, 8), .Cells(countH, 23)).Clear
     End With
 ElseIf (Range("G" & countH) <> "") Then
     Range("H" & countH).Select
     Range("H2:W2").Copy
     
     With Worksheets("Plan")
       .Range(.Cells(countH, 8), .Cells(countG - 1, 23)).PasteSpecial
     End With
End If
Range("A2").Select

End Sub