refer part of a multi dimension array

Sub ad()
  Dim av As Variant
  av = [{1,2,3;4,5,6}]
  
  ' first row
  Range("A1").Resize(, 3) = WorksheetFunction.Index(av, 1, 0)
  ' second row
  Range("A3").Resize(, 3) = WorksheetFunction.Index(av, 2, 0)
  ' first column
  Range("A5").Resize(2) = WorksheetFunction.Index(av, 0, 1)
End Sub