VBA Excel L oop через диапазон, чтобы разделить имя из столбца

Question

Я пытаюсь l oop по всему диапазону (столбцу) в Excel, чтобы дать мне идентификатор, разделив на "_". Этот код работает для одной строки, но я не уверен, как сделать так, чтобы он проходил через всю строку. Имя файла - это столбец A, как показано ниже. Есть 276 строк, которые мне нужно перебрать. Это очевидно копирует то же самое для 2-276, потому что я выбираю только C2 в качестве диапазона. Он выведет D28NQ5 для всего. Если я изменю диапазон на C: C, он не будет работать.

Sub splitName()
  Dim ImageName As String
  Dim newImageName As String
  Dim ImageNameParts() As String
  Dim ID As String
  Dim sourceSheet As Worksheet

  Columns("A:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("B1").Value = "ID Temp"
  Range("A1").Value = "ID"

  ImageName = Range("C2")
  newImageName = Replace(ImageName, ".", "_")
  ImageNameParts = split(newImageName, "_")

  Range("B2:B276").Value = ImageNameParts(4)

  SensorID = Right(ImageNameParts(4), 6)

  Range("A2:A276").Value = ID

  Set sourceSheet = Sheet1
  sourceSheet.Range("B:C").EntireColumn.Delete

End Sub

Имя файла

CV42231.A.10.1_BAM92D28NQ5.czi - сцена № 0.txt

CV42231.A.10.1_BAM92D28NQ5.czi - сцена № 0. txt

CV42231.A.10.1_BAM92D28NQ5.czi - сцена № 1.txt

CV42231.A.10.1_BAM92D28NQ5.czi - сцена № 1.txt

CV42231.A .10.1_BAM92D28NQ5.czi - сцена № 0.txt

CV42231.A.10.1_BAM92D28NP2.czi - сцена № 0.txt

CV42231.A.10.1_BAM92D28NP2.czi - сцена № 1. txt

CV42231.A.10.1_BAM92D28NP2.czi - сцена № 1.txt