Placing array into another sheet without selecting

[Reset]

Is it possible to place an array into a non-active sheet? i am working in one sheet and generate an integer array, and want to place it in a different sheet but stay onthe current sheet. Right now I am doing:

a = Application.WorksheetFunction.CountA(Columns(1))
b = Application.WorksheetFunction.CountA(Columns(2))
ReDim q(a - b) As Integer
inc = 0
For x = 1 To a
If Cells(x, 2) = "" Then q(inc) = Cells(x, 1): inc = inc + 1
Next x
Set t = Range(Cells(1, 4), Cells(a - b, 4))
t.Value = Application.Transpose(q)
' would like to transposte to sheet named "data"

In other words, I want to place it on a different sheet from the active one but don't want to have the "flash" of selecting a different sheet, pasting, and coming back. Any way to put the array on the "data" sheet but staying on the currrent one?

 

[MickG]

Perhaps this:-

Private Sub CommandButton1_Click()
Dim a, b, x, inc, t
a = Application.WorksheetFunction.CountA(Columns(1))
b = Application.WorksheetFunction.CountA(Columns(2))
ReDim Q(a - b) As Integer
inc = 0
For x = 1 To a
If Cells(x, 2) = "" Then Q(inc) = Cells(x, 1): inc = inc + 1
Next x
With Sheets("Data")
Set t = .Range(.Cells(1, 4), .Cells(a - b, 4))
End With
t.Value = Application.Transpose(Q)
' would like to transposte to sheet named "data"
End Sub

or this:-

Private Sub CommandButton2_Click()
Dim rng As Range
Set rng = Range("B:B").SpecialCells(xlCellTypeBlanks, 21).Offset(, -1)
rng.Copy Sheets("Data").Range("F1")
End Sub

Mick