Dateiname über Batch ändern

Hallo liebe Community,

folgendes Problem!:

Ich habe einen Ordner mit 500 PDF Dateien. Diese sind nach folgendem Schema aufgebaut.

XXX_123_456_789_ABC.pdf
XXX_123_456_ABCDEF.pdf
XX_123_456_789_ABCDEFG.pdf

Die Nummerierung kann mal länger sein, mal kürzer. Was in jedem fall gleich ist ist, dass alle alphanumerischen zeichen nach dem letzten unterstrich auf .pdf enden.
Ich suche nach einer Möglichkeit Alle "Chars" vor ".PDF" bis zum letzten "_" zu entfernen. Das Ergebnis soll so aussehen:

XXX_123_456_789.pdf
XXX_123_456.pdf
XX_123_456_789.pdf

Hat jemand eine Idee wie ich das umsetzen kann?
Gerne auch mit Bulk Rename o.ä.

Danke!!!

gci 'C:\Ordner\*.pdf' | rename-item -NewName {$_.Name -replace '(.*)_.*(\.pdf)$','$1$2'}  

Sub BearbeiteSpalteA()
 With ActiveSheet
  For Each cell In .Range("A2:A" & .Cells(Rows.Count,"A").End(xlUp).Row)  
    cell.Value = Left(cell.Value, InStrRev(cell.Value, "_") - 1) & ".pdf"  
  Next
 End With
End Sub