private void button1_Click(object sender, RoutedEventArgs e)
{
    int rowIndex = 0;
    int colIndex = 1;
    // 行、列の番号を指定してDataGridCellを取得する
    DataGridCell cell = GetDataGridCell(dataGrid1, rowIndex, colIndex);
    // データグリッドセルにフォーカスする
    FocusManager.SetFocusedElement(this, cell);
}

public DataGridCell GetDataGridCell(DataGrid dataGrid, int rowIndex, int columnIndex)
{
    if (dataGrid.Items == null || dataGrid.Items.IsEmpty)
    {
        return null;
    }
    DataGridRow row = GetDataGridRow(dataGrid, rowIndex);
    if (row != null)
    {
        DataGridCellsPresenter presenter = GetVisualChild<DataGridCellsPresenter>(row);
        DataGridCell cell = (DataGridCell)presenter.ItemContainerGenerator.ContainerFromIndex(columnIndex);
        if (cell == null)
        {
            // Visual Treeが構築されていない場合もあるため更新
            dataGrid.UpdateLayout();
            dataGrid.ScrollIntoView(row, dataGrid.Columns[columnIndex]);
            cell = (DataGridCell)presenter.ItemContainerGenerator.ContainerFromIndex(columnIndex);
        }
        return cell;
    }
    return null;
}

public DataGridRow GetDataGridRow(DataGrid dataGrid, int index)
{
    if (dataGrid.Items == null || dataGrid.Items.IsEmpty)
    {
        return null;
    }
    DataGridRow row = (DataGridRow)dataGrid.ItemContainerGenerator.ContainerFromIndex(index);
    if (row == null)
    {
        // Visual Treeが構築されていない場合もあるため更新
        dataGrid.UpdateLayout();
        dataGrid.ScrollIntoView(dataGrid.Items[index]);
        row = (DataGridRow)dataGrid.ItemContainerGenerator.ContainerFromIndex(index);
    }
    return row;
}

public static T GetVisualChild<T>(Visual parent) where T : Visual
{
    T result = default(T);
    int childrenCount = VisualTreeHelper.GetChildrenCount(parent);
    for (int i = 0; i < childrenCount; i++)
    {
        Visual child = (Visual)VisualTreeHelper.GetChild(parent, i);
        result = child as T;
        if (result == null)
        {
            result = GetVisualChild<T>(child);
        }
        if (result != null)
        {
            break;
        }
    }
    return result;
}

Dim key As Key = Key.Insert
Dim target As UIElement = Keyboard.FocusedElement
Dim routedEvent As RoutedEvent = Keyboard.KeyDownEvent
Dim e As KeyEventArgs = New KeyEventArgs(
                            Keyboard.PrimaryDevice,
                            PresentationSource.FromVisual(target),
                            0,
                            key)
e.RoutedEvent = routedEvent
Grid1.RaiseEvent(e)

Dim params As HwndSourceParameters = New HwndSourceParameters()
Dim source As HwndSource = New HwndSource(params)
Dim k As Key = Key.A
Dim e As KeyEventArgs = New KeyEventArgs(Keyboard.PrimaryDevice, source, 0, k)
e.RoutedEvent = routedEvent
Grid1.RaiseEvent(e)