sửa thep code của bạn nhé, nhưng cách của bạn ko tối ưu:
Sub CommandButton1_Click()
ClientName = Worksheets("Sheet1").Range("D12").Value
Dim Rows As Integer
Dim i As Integer, k As Integer
Rows = Worksheets("Sheet1").Range("I2").Value
Range("E12:G100").ClearContents
For i = 1 To Rows
If Range("B2").Offset(i, 0).Value = ClientName Then
Sheet1.Range("C2:E2").Offset(i, 0).Copy
k = k + 1
Sheet1.Range("E12:G12").Offset(k - 1, 0).Select
ActiveSheet.Paste
End If
Next i
Application.CutCopyMode = False
End Sub