Comment sélectionner une cellule référencée par une variable sur VBA

Question

C'est ce que j'ai jusqu'à présent. J'ai besoin d'un sub pour copier un groupe de cellules et coller leurs valeurs sur la cellule vide suivante disponible. L'erreur que j'obtiens est de sélectionner la première cellule disponible. Des pensées?

Dim workline As Integer 
Sub Test() 
With ActiveSheet 
workline = 11 
    While .Cells(workline, 2) <> Empty 
    workline = workline + 1 
    Wend 
End With 
    Range("B3:CH9").Select 
    Selection.Copy 



    range(workline,2) .Select 



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 
Message = MsgBox("Data copied succesfully", vbInformation + vbOKOnly, "Aecon Mining") 
End Sub` 

Answer 1

Non testé dans Excel, mais devrait fonctionner, ou tout au moins vous pointant vers la droite:

Range("B3:CH9").Copy 
Range("B2").end(xlDown).offset(1,0).paste 'first available cell 

et cesser d'utiliser les .Choisir et la sélection partout, ils sont une perte de temps .